Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv9217/src
Modified Files:
486asm.f
Log Message:
arm: asm changes to correctly process context; remove no-errors reporting
Index: 486asm.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/486asm.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** 486asm.f 2 Dec 2006 12:21:22 -0000 1.2
--- 486asm.f 22 Mar 2007 02:06:38 -0000 1.3
***************
*** 29,34 ****
( declare the vocabularies needed )
only forth definitions ( vocabulary assembler ) also assembler definitions
! vocabulary asm-hidden also asm-hidden definitions also assembler
! ( the also assembler is strictly to turn off stack warnings )
( 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 )
***************
*** 809,812 ****
--- 808,812 ----
in-asm
+ ((
: report-errors ( turn on error reporting )
['] _?params is ?params
***************
*** 864,867 ****
--- 864,868 ----
['] noop is ?mem
['] noop is ?reg ;
+ ))
( generate prefix sequences )
***************
*** 2016,2031 ****
( create code definitions )
in-hidden
- variable current-sv ( needed for stashing the current vocabulary )
- : save-current ( save the current vocabulary linkage )
- ( -- )
- current data-@ current-sv data-! ;
-
- : unsave-current ( reset current-sv )
- ( -- )
- 0 current-sv data-! ;
-
- : restore-current ( restore current to its previously saved value )
- ( -- )
- current-sv data-@ ?dup if current data-! unsave-current then ;
( debugging )
--- 2017,2020 ----
***************
*** 2051,2059 ****
: subr: ( create a subroutine in the assembler vocabulary )
! save-current init-asm definitions !csp create hide data-here 0
! data-, code-align code-here swap data-! does> data-@ ;
: macro: ( create a macro in the assembler vocabulary )
! save-current also assembler definitions : postpone enter-macro ;
( end code definitions )
--- 2040,2050 ----
: subr: ( create a subroutine in the assembler vocabulary )
! init-asm !csp get-current definitions
! create hide code-here data-,
! set-current does> data-@ ;
: macro: ( create a macro in the assembler vocabulary )
! get-current >r also assembler definitions
! : postpone enter-macro r> set-current ;
( end code definitions )
***************
*** 2063,2068 ****
in-hidden
: _end-code ( end a code definition )
! end-asm ?finished ?unres ?csp reveal restore-current code-align
! exit-assembler ;
in-asm
--- 2054,2058 ----
in-hidden
: _end-code ( end a code definition )
! end-asm ?finished ?unres ?csp reveal ;
in-asm
***************
*** 2071,2075 ****
: endm ( end a macro definition )
! postpone leave-macro postpone ; previous restore-current ;
also forth immediate previous
--- 2061,2065 ----
: endm ( end a macro definition )
! postpone leave-macro postpone ; previous ;
also forth immediate previous
|
