Diff for /gforth/glocals.fs between versions 1.8 and 1.10

version 1.8, 1994/10/24 19:15:58 version 1.10, 1995/04/06 16:56:12
Line 64 Line 64
 include search-order.fs  include search-order.fs
 include float.fs  include float.fs
   
 : compile-@local ( n -- )  : compile-@local ( n -- ) \ new compile-fetch-local
  case   case
     0       of postpone @local0 endof      0       of postpone @local0 endof
     1 cells of postpone @local1 endof      1 cells of postpone @local1 endof
Line 73  include float.fs Line 73  include float.fs
    ( otherwise ) dup postpone @local# ,     ( otherwise ) dup postpone @local# ,
  endcase ;   endcase ;
   
 : compile-f@local ( n -- )  : compile-f@local ( n -- ) \ new compile-f-fetch-local
  case   case
     0        of postpone f@local0 endof      0        of postpone f@local0 endof
     1 floats of postpone f@local1 endof      1 floats of postpone f@local1 endof
Line 134  variable locals-dp \ so here's the speci Line 134  variable locals-dp \ so here's the speci
     postpone lp@ postpone c! ;      postpone lp@ postpone c! ;
   
 : create-local ( " name" -- a-addr )  : create-local ( " name" -- a-addr )
         \ defines the local "name"; the offset of the local shall be stored in a-addr      \ defines the local "name"; the offset of the local shall be
       \ stored in a-addr
     create      create
         immediate          immediate
         here 0 , ( place for the offset ) ;          here 0 , ( place for the offset ) ;
Line 263  locals-types definitions Line 264  locals-types definitions
   
 : -- ( addr wid 0 ... -- )  : -- ( addr wid 0 ... -- )
     }      }
     [char] } word drop ;      [char] } parse 2drop ;
   
 forth definitions  forth definitions
   

Removed from v.1.8  
changed lines
  Added in v.1.10


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>