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
|
