[gforth] / gforth / kernel / basics.fs  

gforth: gforth/kernel/basics.fs

Diff for /gforth/kernel/basics.fs between version 1.34 and 1.35

version 1.34, Thu Dec 26 19:16:17 2002 UTC version 1.35, Fri Jan 3 17:28:13 2003 UTC
Line 67 
Line 67 
 unlock ram-dictionary borders nip lock  unlock ram-dictionary borders nip lock
 AConstant dictionary-end  AConstant dictionary-end
 [ELSE]  [ELSE]
       has? header [IF]
 : dictionary-end ( -- addr )  : dictionary-end ( -- addr )
     forthstart [ 3 cells image-header + ] Aliteral @ + ;      forthstart [ 3 cells image-header + ] Aliteral @ + ;
       [ELSE]
           : forthstart 0 ;
           : dictionary-end ( -- addr )
               forthstart [ has? kernel-size ] Literal + ;
       [THEN]
 [THEN]  [THEN]
   
 : usable-dictionary-end ( -- addr )  : usable-dictionary-end ( -- addr )
Line 225 
Line 231 
   
 :noname ( y1 .. ym error -- y1 .. ym / z1 .. zn error )  :noname ( y1 .. ym error -- y1 .. ym / z1 .. zn error )
     ?dup if      ?dup if
         [ has? ec 0= [IF] here image-header 9 cells + ! [THEN] ]          [ has? header [IF] here image-header 9 cells + ! [THEN] ]
         cr .error cr          cr .error cr
         [ has? file [IF] ] script? IF  1 (bye)  ELSE  quit  THEN          [ has? file [IF] ] script? IF  1 (bye)  ELSE  quit  THEN
         [ [ELSE] ] quit [ [THEN] ]          [ [ELSE] ] quit [ [THEN] ]

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help