Diff for /gforth/see.fs between versions 1.35 and 1.39

version 1.35, 2001/03/17 21:36:41 version 1.39, 2002/01/26 16:31:40
Line 254  VARIABLE C-Pass Line 254  VARIABLE C-Pass
     THEN      THEN
     cell+ ;      cell+ ;
   
 : .word  : .word ( addr xt -- addr )
     look 0= IF      look 0= IF
         drop dup 1 cells - @ ." <" 0 .r ." >"          drop dup 1 cells - @ dup body> look
           IF
               nip dup ." <" name>string rot wordinfo .string ." >"
           ELSE
               drop ." <" 0 .r ." >"
           THEN
     ELSE      ELSE
         dup cell+ @ immediate-mask and          dup cell+ @ immediate-mask and
         IF          IF
Line 266  VARIABLE C-Pass Line 271  VARIABLE C-Pass
     THEN ;      THEN ;
   
 : c-call  : c-call
     Display? IF  dup @ body> .word bl cemit  THEN  cell+ ;      Display? IF  ." call " dup @ body> .word bl cemit  THEN  cell+ ;
   
 : .name-without ( addr -- addr )  : .name-without ( addr -- addr )
 \ prints a name without () e.g. (+LOOP) or (s")  \ prints a name without () e.g. (+LOOP) or (s")
Line 439  VARIABLE C-Pass Line 444  VARIABLE C-Pass
   
 CREATE C-Table  CREATE C-Table
                 ' lit A,            ' c-lit A,                  ' lit A,            ' c-lit A,
                 ' call A,           ' c-call A,  [IFDEF] call    ' call A,           ' c-call A, [THEN]
                 ' (s") A,           ' c-c" A,                  ' (s") A,           ' c-c" A,
                  ' (.") A,          ' c-c" A,                   ' (.") A,          ' c-c" A,
                 ' "lit A,           ' c-c" A,                  ' "lit A,           ' c-c" A,
Line 579  Defer discode ( addr u -- ) \ gforth Line 584  Defer discode ( addr u -- ) \ gforth
   
 : seecode ( xt -- )  : seecode ( xt -- )
     dup s" Code" .defname      dup s" Code" .defname
     threading-method      >code-address
     if  
         >code-address  
     then  
     dup in-dictionary? \ user-defined code word?      dup in-dictionary? \ user-defined code word?
     if      if
         dup next-head          dup next-head

Removed from v.1.35  
changed lines
  Added in v.1.39


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