[Win32forth-cvs] win32forth-stc/src dis486.f,1.6,1.7

[Alex M. <ale...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20806

Modified Files:
	dis486.f 
Log Message:
arm: more support for type system

Index: dis486.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/dis486.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** dis486.f	22 Nov 2006 00:06:53 -0000	1.6
--- dis486.f	30 Nov 2006 20:17:07 -0000	1.7
***************
*** 1087,1094 ****
                    tval of r@ execute . ." value "    .id                         endof
                    tcon of r@ execute . ." constant " .id                         endof
!                   tvar of ." variable " .id ." ( @ is " r@ execute @ 10. ." ) "  endof
                    tcol of ." : " .id                                             endof
!                   tdef of ." defer " .id ." ( xt is " r@ defer@ .name ." )"      endof
!                   swap ." :  " .id
                  endcase
                  dup (in/out@) swap
--- 1087,1095 ----
                    tval of r@ execute . ." value "    .id                         endof
                    tcon of r@ execute . ." constant " .id                         endof
!                   tvar of ." variable " .id ." ( is " r@ execute @ 10. ." ) "    endof
                    tcol of ." : " .id                                             endof
!                   tdef of ." defer " .id ." ( is " r@ defer@ .name ." )"         endof
!                   tvoc of ." vocabulary " .id                                    endof
!                   swap ." : " .id
                  endcase
                  dup (in/out@) swap
***************
*** 1103,1109 ****
                  ;
  
! : see           ( <name> -- )
!                 defined ?missing
!                 dup describe
                  dup >name n>ofa w@ over +         \ length to disassemble
                  swap
--- 1104,1109 ----
                  ;
  
! : 'see          ( xt -- )
!                 dup dup describe
                  dup >name n>ofa w@ over +         \ length to disassemble
                  swap
***************
*** 1116,1120 ****
                  next-inst c@ $c3 = if cr inst then
                  ."  ( end )" 2drop
!                 ;
  
  only forth also definitions
--- 1116,1125 ----
                  next-inst c@ $c3 = if cr inst then
                  ."  ( end )" 2drop
!                 dup >name n>tfa c@ tdef = if      \ if it's a defer
!                   defer@ recurse                 \ do again for deferred word
!                 else drop then ;
! 
! : see           ( <name> -- )
!                 defined ?missing 'see ;
  
  only forth also definitions