[Win32forth-cvs] win32forth-stc/src dis486.f,1.8,1.9

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

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
                  ;