Diff for /gforth/glocals.fs between versions 1.63 and 1.65

version 1.63, 2011/12/31 15:29:25 version 1.65, 2012/02/07 16:48:55
Line 88  require search.fs Line 88  require search.fs
 require float.fs  require float.fs
 require extend.fs \ for case  require extend.fs \ for case
   
 : save-mem-dict ( addr1 u -- addr2 u )  
     here swap dup allot ( addr1 addr2 u )  
     2dup 2>r move 2r> ;  
   
 : compile-@local ( n -- ) \ gforth compile-fetch-local  : compile-@local ( n -- ) \ gforth compile-fetch-local
  case   case
     0       of postpone @local0 endof      0       of postpone @local0 endof
Line 217  variable locals-mem-list \ linked list o Line 213  variable locals-mem-list \ linked list o
 \ warn if list is not a sublist of locals-list  \ warn if list is not a sublist of locals-list
  locals-list @ sub-list? 0= if   locals-list @ sub-list? 0= if
    \ !! print current position     \ !! print current position
    ." compiler was overly optimistic about locals at a BEGIN" cr       >stderr ." compiler was overly optimistic about locals at a BEGIN" cr
    \ !! print assumption and reality     \ !! print assumption and reality
  then ;   then ;
   

Removed from v.1.63  
changed lines
  Added in v.1.65


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