Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv30440
Modified Files:
dis486.f
Log Message:
arm: 2nd pass: more support for type system
Index: dis486.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/dis486.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** dis486.f 2 Dec 2006 12:21:22 -0000 1.8
--- dis486.f 22 Jan 2007 21:51:11 -0000 1.9
***************
*** 1067,1080 ****
repeat 3drop ;
- \ create ttable
- \ tval , ," value"
- \ tvar
- \ tcon
- \ tusr
- \ tdef
- \ tloc
- \ tcol
-
-
: desc-stack ( n -- )
dup 0< if drop ." ? " else . then ;
--- 1067,1070 ----
***************
*** 1101,1105 ****
dup ." flag=" n>flg c@ h.2
dup cr oper-col ." \ file=" >ffa@ .id
! dup ." @ " >vfa@ 10.
r>drop drop
;
--- 1091,1095 ----
dup ." flag=" n>flg c@ h.2
dup cr oper-col ." \ file=" >ffa@ .id
! dup >vfa@ 10.
r>drop drop
;
|
