[gforth] / gforth / kernel / basics.fs  

gforth: gforth/kernel/basics.fs

Diff for /gforth/kernel/basics.fs between version 1.2 and 1.3

version 1.2, Fri Jun 6 17:28:15 1997 UTC version 1.3, Sun Jul 6 16:08:57 1997 UTC
Line 183 
Line 183 
     handler @ >r      handler @ >r
     rp@ handler !      rp@ handler !
     execute      execute
     r> handler ! rdrop rdrop rdrop 0 ;      r> handler ! rdrop
   [ has-floats [IF] ]
       rdrop
   [ [THEN] ]
   [ has-locals [IF] ]
       rdrop
   [ [THEN] ]
       0 ;
   
 : throw ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception  : throw ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception
     ?DUP IF      ?DUP IF
Line 238 
Line 245 
 \ ?stack                                               23feb93py  \ ?stack                                               23feb93py
   
 : ?stack ( ?? -- ?? ) \ gforth  : ?stack ( ?? -- ?? ) \ gforth
     sp@ s0 @ u> IF    -4 throw  THEN      sp@ sp0 @ u> IF    -4 throw  THEN
 [ has-floats [IF] ]  [ has-floats [IF] ]
     fp@ f0 @ u> IF  -&45 throw  THEN      fp@ fp0 @ u> IF  -&45 throw  THEN
 [ [THEN] ]  [ [THEN] ]
 ;  ;
 \ ?stack should be code -- it touches an empty stack!  \ ?stack should be code -- it touches an empty stack!
Line 248 
Line 255 
 \ DEPTH                                                 9may93jaw  \ DEPTH                                                 9may93jaw
   
 : depth ( -- +n ) \ core  : depth ( -- +n ) \ core
     sp@ s0 @ swap - cell / ;      sp@ sp0 @ swap - cell / ;
 : clearstack ( ... -- )  : clearstack ( ... -- )
     s0 @ sp! ;      sp0 @ sp! ;
   
 \ Strings                                                22feb93py  \ Strings                                                22feb93py
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help