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

use FREE in determining the address for the string buffer (saves 6 cells, reduces repeated code)

Browse source 
FossilOrigin-Name: 702285e514de89b0d13400925580f07bc2ad7b4f4cf56d645186f4a73003c12e
This commit is contained in:
crc 2023-12-15 12:29:46 +00:00
parent d51d76dd57
commit 484c034d94
3 changed files with 838 additions and 839 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
image/retro.forth
View file

@ -1609,7 +1609,7 @@ and return a new value.
{{
'NextArray var
:arrays STRINGS #1025 - #513 #12 * - ;
:arrays FREE here + ;
---reveal---
:a:temp (a-a) @NextArray dup #12 eq? [ drop #0 dup !NextArray ] if
#513 * arrays + over a:length n:inc copy

BIN
ngaImage
View file

Binary file not shown.

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

File diff suppressed because it is too large Load diff