Update of /cvsroot/sbcl/sbcl/src/assembly/ppc
In directory sc8-pr-cvs1:/tmp/cvs-serv4391/src/assembly/ppc
Modified Files:
arith.lisp
Log Message:
0.8.5.13:
G5/PPC970 fix:
... Replace all uses of the mcrxr instruction with the mtxer
instruction, because mcrxr is reallly slooow on the PPC970 and
we didn't actually want it for anything but clearing XER.
Index: arith.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/assembly/ppc/arith.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- arith.lisp 18 Mar 2002 17:56:12 -0000 1.1
+++ arith.lisp 29 Oct 2003 06:38:40 -0000 1.2
@@ -31,7 +31,7 @@
(:temp ocfp any-reg ocfp-offset))
; Clear the damned "sticky overflow" bit in :cr0 and :xer
- (inst mcrxr :cr0)
+ (inst mtxer zero-tn)
(inst or temp x y)
(inst andi. temp temp 3)
(inst bne DO-STATIC-FUN)
@@ -77,7 +77,7 @@
(:temp ocfp any-reg ocfp-offset))
; Clear the damned "sticky overflow" bit in :cr0
- (inst mcrxr :cr0)
+ (inst mtxer zero-tn)
(inst or temp x y)
(inst andi. temp temp 3)
@@ -130,7 +130,7 @@
(:temp ocfp any-reg ocfp-offset))
;; If either arg is not a fixnum, call the static function. But first ...
- (inst mcrxr :cr0)
+ (inst mtxer zero-tn)
(inst or temp x y)
(inst andi. temp temp 3)
-------------------------------------------------------
This SF.net email is sponsored by: SF.net Giveback Program.
Does SourceForge.net help you be more productive? Does it
help you create better code? SHARE THE LOVE, and help us help
YOU! Click Here: http://sourceforge.net/donate/
|
