Ignore:
Timestamp:
May 24, 2010, 12:35:51 AM (9 years ago)
Author:
gb
Message:

Back out of uuo-alloc-trap changes.

File:
1 edited

Legend:

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

    r13715 r13736  
    185185     (:prefer-separate-cond))
    186186   (define-arm-instruction uuo-error-wrong-nargs ()
    187      #x07f001f0
     187     #x07f000f1
    188188     #x0fffffff
    189189     (:prefer-separate-cond))
    190190   (define-arm-instruction uuo-gc-trap ()
    191      #x07f002f0
     191     #x07f001f2
    192192     #x0fffffff
    193193     (:prefer-separate-cond))
    194194   (define-arm-instruction uuo-debug-trap ()
    195      #x07f003f0
     195     #x07f002f3
    196196     #x0fffffff
    197197     (:prefer-separate-cond))
    198198   (define-arm-instruction uuo-interrupt-now ()
    199      #x07f004f0
     199     #x07f003f4
    200200     #x0fffffff
    201201     (:prefer-separate-cond))
    202202   (define-arm-instruction uuo-suspend-now ()
    203      #x07f005f0
     203     #x07f004f05
    204204     #x0fffffff
    205205     (:prefer-separate-cond))
    206 
    207206;;; Misc format
    208207   (define-arm-instruction uuo-error-reg-not-lisptag (:uuoA :uuo-unary)
     
    943942                     (set-field-value instruction (byte 4 8) (ldb (byte 4 4) value)))))))
    944943    (set-addressing-mode instruction mode constant-index))))
     944
     945
    945946       
    946947                             
     
    13391340    (let* ((p (position r vinsn-params)))
    13401341      (if p
    1341         (progn
    1342           (vector-push-extend (encode-vinsn-field-type :reglist-bit)
    1343                               field-types)
    1344           (vector-push-extend p field-values))
     1342        (add-avi-operand avi (encode-vinsn-field-type :reglist-bit) p)
    13451343        (let* ((bit (need-arm-gpr r)))
    1346           (setq opcode (logior opcode (ash 1 bit))))))))
     1344          (setf (avi-opcode avi)
     1345                (logior (avi-opcode avi) (ash 1 bit))))))))
    13471346
    13481347(defun vinsn-parse-rnw-operand (avi value vinsn-params)
Note: See TracChangeset for help on using the changeset viewer.