Changeset 13850
- Timestamp:
- Jun 17, 2010, 11:40:34 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/arm/compiler/ARM/arm-vinsns.lisp
r13835 r13850 1602 1602 (mov header (:$ arm::subtag-value-cell)) 1603 1603 (orr header header (:$ (ash arm::value-cell.element-count arm::num-subtag-bits))) 1604 (stmdb (:! sp) (closed header))) 1604 (stmdb (:! sp) (closed header)) 1605 (add dest sp (:$ arm::fulltag-misc))) 1605 1606 1606 1607 (define-arm-vinsn make-stack-cons (((dest :lisp)) … … 2149 2150 ()) 2150 2151 (bic dest src (:$ arm::subtag-mask)) 2151 (mov dest (:lsr dest (:$ (- arm:: ncharcodebitsarm::fixnumshift)))))2152 (mov dest (:lsr dest (:$ (- arm::charcode-shift arm::fixnumshift))))) 2152 2153 2153 2154 (define-arm-vinsn character->code (((dest :u32)) … … 2158 2159 (define-arm-vinsn fixnum->char (((dest :lisp)) 2159 2160 ((src :imm)) 2160 ((temp :u32)2161 (temp 2:u32)))2162 (mov temp 2(:$ #x7f00))2163 (mov temp (:lsr src (:$ (+ arm::fixnumshift 1))))2164 (orr temp 2 temp2(:$ #xff))2165 (cmp temp temp2)2166 (mov temp (:lsr src (:$ (+ arm::fixnumshift 11))))2161 ((tempa :u32) 2162 (tempb :u32))) 2163 (mov tempb (:$ #x7f00)) 2164 (mov tempa (:lsr src (:$ (+ arm::fixnumshift 1)))) 2165 (orr tempb tempb (:$ #xff)) 2166 (cmp tempa tempb) 2167 (mov tempa (:lsr src (:$ (+ arm::fixnumshift 11)))) 2167 2168 (beq :bad) 2168 (cmp temp (:$ 27))2169 (mov dest (:ls rsrc (:$ (- arm::charcode-shift arm::fixnumshift))))2169 (cmp tempa (:$ 27)) 2170 (mov dest (:lsl src (:$ (- arm::charcode-shift arm::fixnumshift)))) 2170 2171 :bad 2171 2172 (moveq dest (:$ arm::nil-value)) … … 2929 2930 (str arg_y (:@! vsp (:$ (- arm::node-size))))) 2930 2931 ((:pred >= min 1) 2931 (mov arg_x (:$ arm::nil-value)))2932 (mov arg_x arg_z)) 2932 2933 (mov arg_y (:$ arm::nil-value)) 2933 2934 (b :last)
Note: See TracChangeset
for help on using the changeset viewer.