Changeset 14102


Ignore:
Timestamp:
Aug 1, 2010, 3:53:07 PM (9 years ago)
Author:
gb
Message:

Don't use "ba" pseudo-instruction.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/xdump/xarmfasload.lisp

    r13962 r14102  
    3434
    3535(defparameter *arm-macro-apply-code*
    36   (let* ((code '((build-lisp-frame imm0)
    37                  (bl .SPheap-rest-arg)
     36  (let* ((code '((load-subprim temp0 .SPheap-rest-arg)
     37                 (build-lisp-frame imm0)
     38                 (blx temp0)
    3839                 (vpop1 arg_z)
     40                 (load-subprim temp0 .SPksignalerr)
    3941                 (mov arg_y fname)
    4042                 (mov arg_x '#.$xnotfun)
    4143                 (set-nargs 3)
    42                  (ba .SPksignalerr))))
     44                 (bx temp0))))
    4345    (make-array (length code)
    4446                :element-type '(unsigned-byte 32)
     
    5254
    5355(defparameter *arm-closure-trampoline-code*
    54   (let* ((code '((ba .SPcall-closure))))
     56  (let* ((code '((load-subprim imm0 .SPcall-closure)
     57                 (bx imm0))))
    5558    (make-array (length code)
    5659                :element-type '(unsigned-byte 32)
Note: See TracChangeset for help on using the changeset viewer.