Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8996/win32forth/src
Modified Files:
ASMWIN32.F DIS486.F FLOAT.F
Log Message:
gah: replaced compile with postpone
Index: ASMWIN32.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/ASMWIN32.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** ASMWIN32.F 2 Jun 2005 21:14:55 -0000 1.4
--- ASMWIN32.F 31 Aug 2005 09:04:49 -0000 1.5
***************
*** 51,55 ****
: _code> ( -- ) \ create the ;code part of a low level defining word
! ?csp !csp compile (;code)
[ also forth ] code-align code-here , [ previous ]
postpone [ init-asm ;
--- 51,55 ----
: _code> ( -- ) \ create the ;code part of a low level defining word
! ?csp !csp postpone (;code)
[ also forth ] code-align code-here , [ previous ]
postpone [ init-asm ;
Index: DIS486.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/DIS486.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** DIS486.F 29 Aug 2005 15:56:27 -0000 1.4
--- DIS486.F 31 Aug 2005 09:04:49 -0000 1.5
***************
*** 87,91 ****
: .s"
postpone s"
! compile >s ; immediate
: >s8
--- 87,91 ----
: .s"
postpone s"
! postpone >s ; immediate
: >s8
***************
*** 94,98 ****
: .sop"
postpone s"
! compile >s8 ; immediate
--- 94,98 ----
: .sop"
postpone s"
! postpone >s8 ; immediate
Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** FLOAT.F 29 Aug 2005 15:56:27 -0000 1.16
--- FLOAT.F 31 Aug 2005 09:04:49 -0000 1.17
***************
*** 388,392 ****
: FTO
state @ \ compiletime: ( FS: n - ) ( -<name_fvalue>- )
! if postpone ['] compile _fto
else ' _fto \ runtime: ( FS: n - ) ( 'fvalue - )
then ; IMMEDIATE
--- 388,392 ----
: FTO
state @ \ compiletime: ( FS: n - ) ( -<name_fvalue>- )
! if postpone ['] postpone _fto
else ' _fto \ runtime: ( FS: n - ) ( 'fvalue - )
then ; IMMEDIATE
|
