Ignore:
Timestamp:
Jun 3, 2010, 2:32:09 PM (9 years ago)
Author:
gb
Message:

Changes, from "just barely functional" to "apparently somewhat functional,
knock wood."

File:
1 edited

Legend:

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

    r13758 r13780  
    2626
    2727
     28(eval-when (:compile-toplevel :load-toplevel :execute)
    2829(defvar *arm-register-names* ())
    2930
     
    5152;;; before calling this.
    5253(defun define-arm-register (name val)
    53   (let* ((value (if (typep val 'fixnum) val (get-arm-gpr val)))
     54  (let* ((value (if (typep val 'fixnum) val (get-arm-register val)))
    5455         (string (string name)))
    5556    (unless value
     
    175176(defarmdfpr d14 78)
    176177(defarmdfpr d15 79)
    177 
     178)
    178179
    179180
     
    304305      (setq *arm-subprims*
    305306            (vector
    306              (defarmsubprim .SPfix-nfn-entrypoint)
     307             (defarmsubprim .SPfix-nfn-entrypoint) ;must be first
    307308             (defarmsubprim .SPbuiltin-plus)
    308309             (defarmsubprim .SPbuiltin-minus)
     
    429430             (defarmsubprim .SPudiv32)
    430431             (defarmsubprim .SPsdiv32)
     432             (defarmsubprim .SPeabi-ff-call)
    431433             )))))
     434
    432435
    433436
     
    542545;;; set in the result.
    543546
    544 (defconstant t-offset (+ (- dnode-size fulltag-nil) fulltag-misc))
     547(defconstant t-offset (+ dnode-size (- dnode-size fulltag-nil) fulltag-misc))
    545548
    546549
     
    13601363  al)
    13611364
     1365;;; A function's entrypoint should initially reference .SPfix-nfn-entrypoint,
     1366;;; which will set it to a locative to the function's code-vector.
     1367(defparameter *function-initial-entrypoint* (ash *arm-subprims-base* (- arm::fixnumshift)))
     1368
    13621369 
    13631370(provide "ARM-ARCH")
Note: See TracChangeset for help on using the changeset viewer.