Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv13126/win32forth-stc/src
Modified Files:
486asm.f
Log Message:
gah: Bug fix to ;code
Index: 486asm.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/486asm.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** 486asm.f 22 Mar 2007 02:06:38 -0000 1.3
--- 486asm.f 24 Apr 2007 08:50:32 -0000 1.4
***************
*** 29,33 ****
( declare the vocabularies needed )
only forth definitions ( vocabulary assembler ) also assembler definitions
! vocabulary asm-hidden also asm-hidden definitions
( words to manipulate the vocabulary search order )
--- 29,33 ----
( declare the vocabularies needed )
only forth definitions ( vocabulary assembler ) also assembler definitions
! vocabulary asm-hidden also asm-hidden definitions
( words to manipulate the vocabulary search order )
***************
*** 2032,2036 ****
: _;code ( create the [;code] part of a low level defining word )
! ?csp !csp compile (;code) postpone [ init-asm ;
in-forth
--- 2032,2036 ----
: _;code ( create the [;code] part of a low level defining word )
! ?csp !csp postpone (;code) postpone unnest postpone [ init-asm ;
in-forth
***************
*** 2045,2049 ****
: macro: ( create a macro in the assembler vocabulary )
! get-current >r also assembler definitions
: postpone enter-macro r> set-current ;
--- 2045,2049 ----
: macro: ( create a macro in the assembler vocabulary )
! get-current >r also assembler definitions
: postpone enter-macro r> set-current ;
***************
*** 2061,2065 ****
: endm ( end a macro definition )
! postpone leave-macro postpone ; previous ;
also forth immediate previous
--- 2061,2065 ----
: endm ( end a macro definition )
! postpone leave-macro postpone ; previous ;
also forth immediate previous
|
