Changeset 15067


Ignore:
Timestamp:
Nov 15, 2011, 10:32:22 AM (8 years ago)
Author:
gb
Message:

Provide definitions (real ones or stubs) of the 4 functions that have been
missing on the ARM forever.

Location:
trunk/source
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/ARM/arm-disassemble.lisp

    r14922 r15067  
    564564   
    565565   
    566  
     566#+arm-target
     567(defun disassemble-lines (function)
     568  (declare (ignore function))
     569  (error "DISASSEMBLE-LINES isn't implemented yet for ARM."))
  • trunk/source/compiler/ARM/arm-lapmacros.lisp

    r14938 r15067  
    260260      (str ,reg (:@ ,temp (:$ ,offset))))))
    261261
    262 
     262(defarmlapmacro load-global-address (reg sym)
     263  `(lri ,reg ,(+ (- arm::nil-value arm::fulltag-nil) (arm::%kernel-global sym))))
     264
     265 
    263266
    264267
  • trunk/source/level-0/ARM/arm-misc.lisp

    r14909 r15067  
    871871  (box-fixnum arg_z imm1)
    872872  (bx lr))
    873                          
     873
     874(defarmlapfunction %atomic-pop-static-cons ()
     875  (load-global-address imm0 arm::static-conses)
     876  (load-global-address imm2 arm::free-static-conses)
     877  @again
     878  (ldrex arg_z (:@ imm0))
     879  (cmp arg_z 'nil)
     880  (bxeq lr)
     881  (%cdr temp0 arg_z)
     882  (strex imm1 temp0 (:@ imm0))
     883  (cmp imm1 (:$ 0))
     884  (bne @again)
     885  @dec
     886  (ldrex imm0 (:@ imm2))
     887  (sub imm0 imm0 '1)
     888  (strex imm1 imm0 (:@ imm2))
     889  (cmp imm1 (:$ 0))
     890  (bne @dec)
     891  (dmb)
     892  (bx lr))
     893 
    874894
    875895; end of arm-misc.lisp
  • trunk/source/lib/arm-backtrace.lisp

    r14119 r15067  
    170170               (%i< pc (uvref ptrs (%i+ j 2)))
    171171               (return (aref syms i))))))))
     172
     173(defun apply-in-frame (frame function arglist &optional context)
     174  (declare (ignore frame function arglist context))
     175  (error "APPLY-IN-FRAME isn't implemented on ARM."))
     176
     177(defun return-from-frame (frame &rest values)
     178  (apply-in-frame frame #'values values nil))
Note: See TracChangeset for help on using the changeset viewer.