[Win32forth-cvs] win32forth/src Primutil.f,1.49,1.50

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv14109/src

Modified Files:
	Primutil.f 
Log Message:
Jos: Replaced tnegate with the version of Will Baden

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.49
retrieving revision 1.50
diff -C2 -d -r1.49 -r1.50
*** Primutil.f	15 May 2010 21:09:14 -0000	1.49
--- Primutil.f	17 Nov 2010 18:08:34 -0000	1.50
***************
*** 341,348 ****
  
  : 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 )
--- 341,346 ----
  
  : 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 )