[Win32forth-cvs] win32forth/src 486ASM.F, 1.6.4.2, 1.6.4.3 Primutil.f, 1.48, 1.48.2.1

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv1757

Modified Files:
      Tag: V614XX
	486ASM.F Primutil.f 
Log Message:
Fixed CMPXCHG bug as per Alex. TNEGATE also fixed.

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.48
retrieving revision 1.48.2.1
diff -C2 -d -r1.48 -r1.48.2.1
*** Primutil.f	7 Feb 2010 07:27:20 -0000	1.48
--- Primutil.f	31 Mar 2011 11:34:48 -0000	1.48.2.1
***************
*** 337,344 ****
  
  : TNEGATE   ( t1lo t1mid t1hi -- t2lo t2mid t2hi )
!         invert >r
!         invert >r
!         invert 0 -1. d+ s>d r> 0 d+
!         r> + ;
  
  : UT*   ( ulo uhi u -- utlo utmid uthi )
--- 337,342 ----
  
  : TNEGATE   ( t1lo t1mid t1hi -- t2lo t2mid t2hi )
!         >r  2dup or dup if drop  dnegate 1  then
!         r> +  negate ;
  
  : UT*   ( ulo uhi u -- utlo utmid uthi )

Index: 486ASM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/486ASM.F,v
retrieving revision 1.6.4.2
retrieving revision 1.6.4.3
diff -C2 -d -r1.6.4.2 -r1.6.4.3
*** 486ASM.F	7 Aug 2010 20:42:10 -0000	1.6.4.2
--- 486ASM.F	31 Mar 2011 11:34:48 -0000	1.6.4.3
***************
*** 1776,1780 ****
    04f0f '       bs-compile opcode cmovnle   \ ' cmovnle     alias cmovg
    04f0f '       bs-compile opcode cmovg
!     0bc ' xchg&alu-compile opcode cmpxchg
        0 '   cmpxchg8b-comp opcode cmpxchg8b
    0a20f '            2byte opcode cpuid
--- 1776,1780 ----
    04f0f '       bs-compile opcode cmovnle   \ ' cmovnle     alias cmovg
    04f0f '       bs-compile opcode cmovg
!     0b0 ' xchg&alu-compile opcode cmpxchg
        0 '   cmpxchg8b-comp opcode cmpxchg8b
    0a20f '            2byte opcode cpuid