[Win32forth-cvs] win32forth-stc/src 486asm.f,1.2,1.3

[Alex M. <ale...@us...>]

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