Pārlūkot izejas kodu

Remove an indirection in ERR

master
Virgil Dupras pirms 3 gadiem
vecāks
revīzija
f027f13042
3 mainītis faili ar 1 papildinājumiem un 1 dzēšanām
  1. +0
    -1
      blk/354
  2. +1
    -0
      blk/356
  3. Binārs
      cvm/forth.bin

+ 0
- 1
blk/354 Parādīt failu

@@ -1,5 +1,4 @@
: ABORT (resSP) QUIT ;
: ERR LIT" (print)" FIND IF EXECUTE THEN ABORT ;
: = CMP NOT ; : < CMP -1 = ; : > CMP 1 = ;
: 0< 32767 > ; : >= < NOT ; : <= > NOT ; : 0>= 0< NOT ;
: >< ( n l h -- f ) 2 PICK > ( n l f ) ROT ROT > AND ;


+ 1
- 0
blk/356 Parādīt failu

@@ -3,6 +3,7 @@ SYSVARS 0x53 + :** EMIT
: BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ;
: CRLF CR LF ; : SPC 32 EMIT ;
SYSVARS 0x0a + :** NL
: ERR (print) ABORT ;
: (uflw) LIT" stack underflow" ERR ;
XCURRENT @ _xapply ORG @ 0x06 ( stable ABI uflw ) + !
: (oflw) LIT" stack overflow" ERR ;


Binārs
cvm/forth.bin Parādīt failu


Notiek ielāde…
Atcelt
Saglabāt