crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

alter a few definitions to reduce memory use by 30 cells

Browse source 
FossilOrigin-Name: 7020a844db042f82455a2f82e1b151e402f0afb93db304324a584655c4c095dd
This commit is contained in:
crc 2023-12-15 12:27:19 +00:00
parent a4398b5dbc
commit d51d76dd57
3 changed files with 832 additions and 837 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
image/retro.forth
View file

@ -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
View file

Binary file not shown.

1661
vm/nga-c/image.c
View file

File diff suppressed because it is too large Load diff