Ignore:
Timestamp:
Jun 16, 2010, 1:49:33 AM (9 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/compiler/ARM/arm-vinsns.lisp

    r13817 r13835  
    10581058  (bne :maybe-two-digit)
    10591059  (ldr dest (:@ src (:$ arm::misc-data-offset)))
    1060   (tst dest (:$ 31))
     1060  (tst dest (:$ (ash 1 31)))
    10611061  (uuo-error-reg-not-xtype (:? ne) src (:$ arm::xtype-u32))
    10621062  (b  :got-it)
     
    19531953                              ((val :u8))
    19541954                              ())
    1955   (mov result (:lsr val (:$ 24)))
    1956   (mov result (:lsr val (:$ (- 24 arm::fixnumshift)))))
     1955  (mov result (:lsl val (:$ 24)))
     1956  (mov result (:lsr result (:$ (- 24 arm::fixnumshift)))))
    19571957
    19581958;;; Treat the low 8 bits of VAL as a signed integer; set RESULT to the equivalent fixnum.
     
    30933093(define-arm-vinsn %debug-trap (()
    30943094                                                     ())
    3095   (uuo-debug-trap))
     3095  (uuo-debug-trap (:? al)))
    30963096
    30973097
Note: See TracChangeset for help on using the changeset viewer.