Changeset 13820

Timestamp:

Jun 14, 2010, 3:13:31 AM (14 years ago)

Author:

Gary Byers

Message:

Fix FAST-MOD-3.

File:

• branches/arm/level-0/ARM/arm-hash.lisp (modified) (1 diff)

branches/arm/level-0/ARM/arm-hash.lisp

@@ -39 +39 @@
 (defarmlapfunction fast-mod-3 ((number arg_x) (divisor arg_y) (recip arg_z))
   (mov imm0 (:lsr number (:$ arm::fixnumshift)))
-  (smull imm1 imm2 imm0 recip)
-  (smull imm2 imm0 imm1 divisor)
+  (smull imm2 imm1 imm0 recip)
+  (mul imm0 imm1 divisor)
   (sub number number imm0)
   (sub number number divisor)