[Win32forth-cvs] win32forth-stc/src dis486.f, 1.9, 1.10 primutil.f, 1.19, 1.20

[George H. <geo...@us...>]

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

Modified Files:
	dis486.f primutil.f 
Log Message:
gah: Modified to correctly see offsets.

Index: primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/primutil.f,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** primutil.f	13 Nov 2006 13:01:37 -0000	1.19
--- primutil.f	24 Jan 2007 11:48:55 -0000	1.20
***************
*** 125,129 ****
  : offset        ( n1 <-name-> -- )        \ compiling
                  ( n2 -- n3 )              \ runtime n3=n1+n2
!                 (offset) ['] (comp-offs) compiles-last ;
  
  : field+        ( n1 n2 <-name-> -- n3 )  \ compiling n3=n1+n2 stored offset=n1
--- 125,130 ----
  : offset        ( n1 <-name-> -- )        \ compiling
                  ( n2 -- n3 )              \ runtime n3=n1+n2
!                 (offset) ['] (comp-offs) compiles-last
!                 toff tfa! 1 1 in/out ;
  
  : field+        ( n1 n2 <-name-> -- n3 )  \ compiling n3=n1+n2 stored offset=n1

Index: dis486.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/dis486.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** dis486.f	22 Jan 2007 21:51:11 -0000	1.9
--- dis486.f	24 Jan 2007 11:48:54 -0000	1.10
***************
*** 1082,1085 ****
--- 1082,1086 ----
                    tdef of ." defer " .id ." ( is " r@ defer@ .name ." )"         endof
                    tvoc of ." vocabulary " .id                                    endof
+                   toff of 0 r@ execute . ." offset " .id                         endof
                    swap ." : " .id
                  endcase