alter a few definitions to reduce memory use by 30 cells
FossilOrigin-Name: 7020a844db042f82455a2f82e1b151e402f0afb93db304324a584655c4c095dd
This commit is contained in:
parent
a4398b5dbc
commit
d51d76dd57
3 changed files with 832 additions and 837 deletions
|
@ -1624,12 +1624,8 @@ and return a new value.
|
||||||
:patch here over - n:dec over store ;
|
:patch here over - n:dec over store ;
|
||||||
:cleanup dup a:temp swap &Heap store ;
|
:cleanup dup a:temp swap &Heap store ;
|
||||||
:record @Count , ;
|
:record @Count , ;
|
||||||
(numbers)
|
:iterate/n [ over eq? &record if &Count v:inc ] a:for-each ;
|
||||||
:match? over eq? ;
|
:iterate/s [ over s:eq? &record if &Count v:inc ] a:for-each ;
|
||||||
:iterate/n [ match? &record if &Count v:inc ] a:for-each ;
|
|
||||||
(strings)
|
|
||||||
:match? over s:eq? ;
|
|
||||||
:iterate/s [ match? &record if &Count v:inc ] a:for-each ;
|
|
||||||
---reveal---
|
---reveal---
|
||||||
:a:indices (av-a)
|
:a:indices (av-a)
|
||||||
prepare here [ reserve iterate/n drop ] dip patch cleanup ;
|
prepare here [ reserve iterate/n drop ] dip patch cleanup ;
|
||||||
|
|
BIN
ngaImage
BIN
ngaImage
Binary file not shown.
1661
vm/nga-c/image.c
1661
vm/nga-c/image.c
File diff suppressed because it is too large
Load diff
Loading…
Reference in a new issue