[gforth] / gforth / glocals.fs  

gforth: gforth/glocals.fs

Diff for /gforth/glocals.fs between version 1.6 and 1.7

version 1.6, Wed Aug 31 19:42:47 1994 UTC version 1.7, Mon Sep 12 19:00:30 1994 UTC
Line 61 
Line 61 
 \ Currently locals may only be  \ Currently locals may only be
 \ defined at the outer level and TO is not supported.  \ defined at the outer level and TO is not supported.
   
 include float.fs  
 include search-order.fs  include search-order.fs
   include float.fs
   
 : compile-@local ( n -- )  : compile-@local ( n -- )
  case   case
     0 of postpone @local0 endof      0 of postpone @local0 endof
     4 of postpone @local4 endof      1 cells of postpone @local1 endof
     8 of postpone @local8 endof      2 cells of postpone @local2 endof
    12 of postpone @local12 endof      3 cells of postpone @local3 endof
    ( otherwise ) dup postpone @local# ,     ( otherwise ) dup postpone @local# ,
  endcase ;   endcase ;
   
 : compile-f@local ( n -- )  : compile-f@local ( n -- )
  case   case
     0 of postpone f@local0 endof      0 of postpone f@local0 endof
     8 of postpone f@local8 endof      1 floats of postpone f@local1 endof
    ( otherwise ) dup postpone f@local# ,     ( otherwise ) dup postpone f@local# ,
  endcase ;   endcase ;
   
Line 509 
Line 509 
  endif ; immediate   endif ; immediate
   
 : locals|  : locals|
   BEGIN  sname 2dup s" |" compare 0=  WHILE    BEGIN  name 2dup s" |" compare 0=  WHILE
          (local)  REPEAT  drop 0 (local) ;  immediate restrict           (local)  REPEAT  drop 0 (local) ;  immediate restrict

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help