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
|
