[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.144 and 1.145

version 1.144, Sat Mar 25 18:37:16 2006 UTC version 1.145, Sun Mar 26 22:54:20 2006 UTC
Line 732 
Line 732 
         ELSE          ELSE
             [ [THEN] ]              [ [THEN] ]
         sourceline# 0< IF 2drop false EXIT THEN          sourceline# 0< IF 2drop false EXIT THEN
         accept true          accept eof @ 0=
         [ has? file [IF] ]          [ has? file [IF] ]
         THEN          THEN
         1 loadline +!          1 loadline +!
Line 982 
Line 982 
 [ELSE]  [ELSE]
     : dec.  base @ >r decimal . r> base ! ;      : dec.  base @ >r decimal . r> base ! ;
     : DoError ( throw-code -- )      : DoError ( throw-code -- )
           cr source drop >in @ type ." <<< "
         dup -2 =  IF  "error @ type  drop  EXIT  THEN          dup -2 =  IF  "error @ type  drop  EXIT  THEN
         .error ;          .error ;
 [THEN]  [THEN]
Line 1079 
Line 1080 
     os-boot      os-boot
 [ [THEN] ]  [ [THEN] ]
 [ has? rom [IF] ]  [ has? rom [IF] ]
     ram-shadow @ -1 <> IF      ram-shadow dup @ dup -1 <> >r u> r> and IF
         ram-shadow 2@  ELSE          ram-shadow 2@  ELSE
         ram-mirror ram-size  THEN  ram-start swap move          ram-mirror ram-size  THEN  ram-start swap move
 [ [THEN] ]  [ [THEN] ]

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help