Changeset 13835

Timestamp:

Jun 15, 2010, 6:49:33 PM (14 years ago)

Author:

Gary Byers

Message:

Fixes in unbox-u32, unbox-u8, %debug-trap.

File:

• branches/arm/compiler/ARM/arm-vinsns.lisp (modified) (3 diffs)

branches/arm/compiler/ARM/arm-vinsns.lisp

@@ -1058 +1058 @@
   (bne :maybe-two-digit)
   (ldr dest (:@ src (:$ arm::misc-data-offset)))
-  (tst dest (:$ 31))
+  (tst dest (:$ (ash 1 31)))
   (uuo-error-reg-not-xtype (:? ne) src (:$ arm::xtype-u32))
   (b  :got-it)
@@ -1953 +1953 @@
                               ((val :u8)) 
                               ())
-  (mov result (:lsr val (:$ 24)))
-  (mov result (:lsr val (:$ (- 24 arm::fixnumshift)))))
+  (mov result (:lsl val (:$ 24)))
+  (mov result (:lsr result (:$ (- 24 arm::fixnumshift)))))
 
 ;;; Treat the low 8 bits of VAL as a signed integer; set RESULT to the equivalent fixnum.
@@ -3093 +3093 @@
 (define-arm-vinsn %debug-trap (()
                                                      ())
-  (uuo-debug-trap))
+  (uuo-debug-trap (:? al)))