Преглед изворни кода

Fix stack leak in LIST

master
Virgil Dupras пре 3 година
родитељ
комит
a88c2b6b42
2 измењених фајлова са 1 додато и 1 уклоњено
  1. +1
    -1
      blk/382
  2. BIN
      cvm/forth.bin

+ 1
- 1
blk/382 Прегледај датотеку

@@ -3,7 +3,7 @@
16 0 DO
I 1+ DUP 10 < IF SPC THEN . SPC
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
NL
LOOP ;


Loading…
Откажи
Сачувај