Diff for /gforth/locals-test.fs between versions 1.3 and 1.9

version 1.3, 1994/07/08 15:00:53 version 1.9, 1997/10/04 17:33:53
Line 1 Line 1
 include glocals.fs  require glocals.fs
 include debugging.fs  require debugs.fs
   
 : localsinfo \ !! only debugging  : localsinfo \ !! only debugging
  ." stack: " .s ." locals-size: " locals-size ? ." locals-list"   ." stack: " .s ." locals-size: " locals-size ? ." locals-list"
Line 94  until Line 94  until
   
 : xxx5  : xxx5
 { a }  { a }
   a drop    
 ahead  ahead
   assume-live
 begin  begin
 [ ." after begin" localsinfo ]  [ ." after begin" localsinfo ]
   a drop    
 [ 1 cs-roll ]  [ 1 cs-roll ]
 then  then
 [ ." after then" localsinfo ]  [ ." after then" localsinfo ]
Line 245  until Line 248  until
     [ ." after xexit" localsinfo ]      [ ." after xexit" localsinfo ]
     else      else
     { b }      { b }
     [ ." before xthen" localsinfo      [ ." before xthen" localsinfo ]
     then      then
     [ ." after xthen" localsinfo ]      [ ." after xthen" localsinfo ]
 ;  ;
Line 278  s" " s" " strcmp1 . cr Line 281  s" " s" " strcmp1 . cr
 ;  ;
 teststrcmp1  teststrcmp1
   
   ." testing the abominable locals-ext wordset" cr
   : puke locals| this read you can |
       you read this can ;
   
   1 2 3 4 puke . . . . cr
   
   \ just some other stuff
   
   : life1 { b0 b1 b23 old -- new }
       b23 invert old b1 b0 xor and old invert b1 and b0 and or and ;
   
   : life2 { b0 b1 b23 old -- new }
       b0 b1 or old b0 xor b1 xor b23 or invert and ;
   
   $5555 $3333 $0f0f $00ff life1 .
   $5555 $3333 $0f0f $00ff life2 .
   .s
   cr
   
   : test
       1 { a }  ." after }" cr
       2 { b -- }  ." after --" cr
   ;
   test
   .s cr
   
 bye  bye

Removed from v.1.3  
changed lines
  Added in v.1.9


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