Clean up offset calculations to bear out the name 'first-free'.
This commit is contained in:
parent
c9e9b56123
commit
388ad74cf1
|
@ -21,6 +21,7 @@ fn initialize-environment _self: (addr environment), _items: (addr item-list) {
|
||||||
var items/eax: (addr item-list) <- copy _items
|
var items/eax: (addr item-list) <- copy _items
|
||||||
var items-data-first-free-a/eax: (addr int) <- get items, data-first-free
|
var items-data-first-free-a/eax: (addr int) <- get items, data-first-free
|
||||||
var final-item/eax: int <- copy *items-data-first-free-a
|
var final-item/eax: int <- copy *items-data-first-free-a
|
||||||
|
final-item <- decrement
|
||||||
var dest/edi: (addr int) <- get self, item-index
|
var dest/edi: (addr int) <- get self, item-index
|
||||||
copy-to *dest, final-item
|
copy-to *dest, final-item
|
||||||
}
|
}
|
||||||
|
@ -436,9 +437,10 @@ fn previous-item _env: (addr environment), _items: (addr item-list) {
|
||||||
var env/edi: (addr environment) <- copy _env
|
var env/edi: (addr environment) <- copy _env
|
||||||
var items/esi: (addr item-list) <- copy _items
|
var items/esi: (addr item-list) <- copy _items
|
||||||
var items-data-first-free-a/ecx: (addr int) <- get items, data-first-free
|
var items-data-first-free-a/ecx: (addr int) <- get items, data-first-free
|
||||||
var items-data-first-free/ecx: int <- copy *items-data-first-free-a
|
var final-item-index/ecx: int <- copy *items-data-first-free-a
|
||||||
|
final-item-index <- decrement
|
||||||
var dest/eax: (addr int) <- get env, item-index
|
var dest/eax: (addr int) <- get env, item-index
|
||||||
compare *dest, items-data-first-free
|
compare *dest, final-item-index
|
||||||
break-if->=
|
break-if->=
|
||||||
increment *dest
|
increment *dest
|
||||||
}
|
}
|
||||||
|
@ -491,12 +493,14 @@ fn page-up _env: (addr environment), _items: (addr item-list) {
|
||||||
var items-data-ah/eax: (addr handle array item) <- get items, data
|
var items-data-ah/eax: (addr handle array item) <- get items, data
|
||||||
var _items-data/eax: (addr array item) <- lookup *items-data-ah
|
var _items-data/eax: (addr array item) <- lookup *items-data-ah
|
||||||
var items-data/ebx: (addr array item) <- copy _items-data
|
var items-data/ebx: (addr array item) <- copy _items-data
|
||||||
var items-data-first-free-a/esi: (addr int) <- get items, data-first-free
|
var items-data-first-free-a/eax: (addr int) <- get items, data-first-free
|
||||||
|
var final-item-index/esi: int <- copy *items-data-first-free-a
|
||||||
|
final-item-index <- decrement
|
||||||
var src/eax: (addr int) <- get env, item-index
|
var src/eax: (addr int) <- get env, item-index
|
||||||
var new-item-index/ecx: int <- copy *src
|
var new-item-index/ecx: int <- copy *src
|
||||||
var y/edx: int <- copy 2
|
var y/edx: int <- copy 2
|
||||||
{
|
{
|
||||||
compare new-item-index, *items-data-first-free-a
|
compare new-item-index, final-item-index
|
||||||
break-if->
|
break-if->
|
||||||
compare y, 0x28/screen-height-minus-menu
|
compare y, 0x28/screen-height-minus-menu
|
||||||
break-if->=
|
break-if->=
|
||||||
|
|
|
@ -137,7 +137,6 @@ fn parse in: (addr stream byte), users: (addr array user), channels: (addr array
|
||||||
}
|
}
|
||||||
var dest/eax: (addr int) <- get items, data-first-free
|
var dest/eax: (addr int) <- get items, data-first-free
|
||||||
copy-to *dest, item-idx
|
copy-to *dest, item-idx
|
||||||
decrement *dest
|
|
||||||
}
|
}
|
||||||
|
|
||||||
fn parse-record in: (addr stream byte), out: (addr stream byte) {
|
fn parse-record in: (addr stream byte), out: (addr stream byte) {
|
||||||
|
|
Loading…
Reference in New Issue