mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-24 14:28:06 +11:00
Flush input buffer on QUIT
Prebiously, when encountering an error during a : ; definition from input buffer, because the input buffer wasn't flushed, we would continue interpreting and quit the whole program when encountering ;.
This commit is contained in:
parent
02e6979a46
commit
5bbc256faf
13
blk/353
13
blk/353
@ -1,13 +1,14 @@
|
||||
: RAM+ [ RAMSTART LITN ] + ;
|
||||
: BIN+ [ BIN( @ LITN ] + ;
|
||||
: RAM+ [ RAMSTART LITN ] + ; : BIN+ [ BIN( @ LITN ] + ;
|
||||
: HERE 0x04 RAM+ ;
|
||||
: CURRENT* 0x51 RAM+ ;
|
||||
: CURRENT CURRENT* @ ;
|
||||
: CURRENT* 0x51 RAM+ ; : CURRENT CURRENT* @ ;
|
||||
: H@ HERE @ ;
|
||||
: FIND ( w -- a f ) CURRENT @ SWAP _find ;
|
||||
: IN> 0x30 RAM+ ; ( current position in INBUF )
|
||||
: IN( 0x32 RAM+ @ ; ( points to INBUF )
|
||||
: IN) 0x40 ( buffer size ) IN( + ; ( INBUF's end )
|
||||
: (infl) 0 IN( DUP IN> ! ! ; ( flush input buffer )
|
||||
: QUIT
|
||||
(resRS)
|
||||
0 0x08 RAM+ ! ( 08 == C<* override )
|
||||
(resRS) 0 0x08 RAM+ ! ( C<* override ) (infl)
|
||||
LIT< (main) FIND DROP EXECUTE
|
||||
;
|
||||
1 25 LOADR+ ( xcomp core low )
|
||||
|
11
blk/386
11
blk/386
@ -1,11 +0,0 @@
|
||||
( current position in INBUF )
|
||||
: IN> 0x30 RAM+ ;
|
||||
( points to INBUF )
|
||||
: IN( 0x32 RAM+ @ ;
|
||||
( points to INBUF's end )
|
||||
: IN) 0x40 ( buffer size ) IN( + ;
|
||||
|
||||
( flush input buffer )
|
||||
( set IN> to IN( and set IN> @ to null )
|
||||
: (infl) 0 IN( DUP IN> ! ! ;
|
||||
|
BIN
emul/forth.bin
BIN
emul/forth.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user