[gforth] / gforth / glocals.fs  

gforth: gforth/glocals.fs

Diff for /gforth/glocals.fs between version 1.20 and 1.21

version 1.20, Fri May 3 13:05:05 1996 UTC version 1.21, Thu May 9 18:12:59 1996 UTC
Line 507 
Line 507 
 : TO ( c|w|d|r "name" -- ) \ core-ext,local  : TO ( c|w|d|r "name" -- ) \ core-ext,local
  0 0 0. 0.0e0 { c: clocal w: wlocal d: dlocal f: flocal }   0 0 0. 0.0e0 { c: clocal w: wlocal d: dlocal f: flocal }
  ' dup >definer   ' dup >definer
  state @  
  if  
    case     case
      [ ' locals-wordlist >definer ] literal \ value       [ ' locals-wordlist >definer ] literal \ value
      OF >body POSTPONE Aliteral POSTPONE ! ENDOF       OF >body POSTPONE Aliteral POSTPONE ! ENDOF
Line 521 
Line 519 
      [ ' flocal >definer ] literal       [ ' flocal >definer ] literal
      OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF       OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF
      -&32 throw       -&32 throw
    endcase      endcase ; immediate
  else  interpretation:
    [ ' locals-wordlist >definer ] literal =      ' dup >definer [ ' locals-wordlist >definer ] literal =
    if     if
      >body !       >body !
    else     else
      -&32 throw       -&32 throw
    endif      endif ;
  endif ; immediate  
   
 : locals|  : locals|
     \ don't use 'locals|'! use '{'! A portable and free '{'      \ don't use 'locals|'! use '{'! A portable and free '{'
     \ implementation is anslocals.fs      \ implementation is compat/anslocals.fs
     BEGIN      BEGIN
         name 2dup s" |" compare 0<>          name 2dup s" |" compare 0<>
     WHILE      WHILE

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help