win32forth-cvs

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

Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv11236

Modified Files:
	float.f primutil.f 
Log Message:
arm: remove use of NEXT, in code sections

Index: primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/primutil.f,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** primutil.f	15 Mar 2007 17:55:15 -0000	1.23
--- primutil.f	22 Mar 2007 02:11:27 -0000	1.24
***************
*** 113,119 ****
  in-system
  
- defer enter-assembler ' noop is enter-assembler
- defer exit-assembler  ' noop is exit-assembler
- 
  : (comp-offs)   ( xt -- )
                  0 swap execute postpone literal postpone + ;
--- 113,116 ----

Index: float.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/float.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** float.f	8 Dec 2006 10:27:31 -0000	1.6
--- float.f	22 Mar 2007 02:11:27 -0000	1.7
***************
*** 50,54 ****
                  mov tos, 0 [ebp]
                  lea ebp, 4 [ebp]
!                 next,
                  end-code
  
--- 50,54 ----
                  mov tos, 0 [ebp]
                  lea ebp, 4 [ebp]
!                 next
                  end-code
  
***************
*** 58,62 ****
                  mov tos, 0 [ebp]
                  lea ebp, 4 [ebp]
!                 next,
                  end-code
  
--- 58,62 ----
                  mov tos, 0 [ebp]
                  lea ebp, 4 [ebp]
!                 next
                  end-code
  
***************
*** 68,72 ****
                  mov     tos, -8 [ebp]
                  lea     ebp, -4 [ebp]
!                 next,
                  end-code
  
--- 68,72 ----
                  mov     tos, -8 [ebp]
                  lea     ebp, -4 [ebp]
!                 next
                  end-code
  
***************
*** 76,80 ****
                  mov     tos, 0 [ebp]
                  lea     ebp, 4 [ebp]
!                 next,
                  end-code
  
--- 76,80 ----
                  mov     tos, 0 [ebp]
                  lea     ebp, 4 [ebp]
!                 next
                  end-code
  
***************
*** 84,88 ****
                  fnstsw   ax
                  lea     ebp, -4 [ebp]
!                 next,
                  end-code
  
--- 84,88 ----
                  fnstsw   ax
                  lea     ebp, -4 [ebp]
!                 next
                  end-code
  
***************
*** 177,181 ****
                  ret
  L$1:            mov     tos, # FPU_STATUS_CCF_EMPTY
!                 next,
                  end-code
  
--- 177,181 ----
                  ret
  L$1:            mov     tos, # FPU_STATUS_CCF_EMPTY
!                 next
                  end-code
  
***************
*** 193,197 ****
                  and     word -4 [ebp], # 0x0eff           \ 8  byte mode
                  fldcw   word -4 [ebp]        [THEN]
!                 next,
                  end-code
  
--- 193,197 ----
                  and     word -4 [ebp], # 0x0eff           \ 8  byte mode
                  fldcw   word -4 [ebp]        [THEN]
!                 next
                  end-code