izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-23 19:58:06 +11:00
Code Issues Releases Wiki Activity

Fix stack leak in LIST

Browse Source
This commit is contained in:
Virgil Dupras 2020-11-08 17:30:27 -05:00
parent 3615944ffa
commit a88c2b6b42
2 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
blk/382
View File

@ -3,7 +3,7 @@
16 0 DO 16 0 DO
I 1+ DUP 10 < IF SPC THEN . SPC I 1+ DUP 10 < IF SPC THEN . SPC
64 I * BLK( + DUP 64 + SWAP DO 64 I * BLK( + DUP 64 + SWAP DO
I C@ DUP 0x1f > IF EMIT ELSE LEAVE THEN I C@ DUP 0x1f > IF EMIT ELSE DROP LEAVE THEN
LOOP LOOP
NL NL
LOOP ; LOOP ;

BIN
cvm/forth.bin
View File

Binary file not shown.