0.9.2.37:

[sbcl.git] / src / assembly / ppc / arith.lisp

diff --git a/src/assembly/ppc/arith.lisp b/src/assembly/ppc/arith.lisp
index 8cb8c42..13e998a 100644 (file)
--- a/src/assembly/ppc/arith.lisp
+++ b/src/assembly/ppc/arith.lisp
@@ -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)
@@ -219,7 +219,7 @@
 
                          (:res quo any-reg nl2-offset)
                          (:res rem any-reg nl0-offset))
-  (assert (location= rem dividend))
+  (aver (location= rem dividend))
   (let ((error (generate-error-code nil division-by-zero-error
                                    dividend divisor)))
     (inst cmpwi divisor 0)
@@ -244,7 +244,7 @@
                          (:res quo any-reg nl2-offset)
                          (:res rem any-reg nl0-offset))
   
-  (assert (location= rem dividend))
+  (aver (location= rem dividend))
   (let ((error (generate-error-code nil division-by-zero-error
                                    dividend divisor)))
     (inst cmpwi divisor 0)
@@ -422,7 +422,7 @@
   (lisp-return lra lip :offset 2)
 
   DO-STATIC-FN
-  (inst lwz lip null-tn (static-fun-offset 'two-arg-=))
+  (inst lwz lip null-tn (static-fun-offset 'two-arg-/=))
   (inst li nargs (fixnumize 2))
   (inst mr ocfp cfp-tn)
   (inst j lip 0)