Ignore:
Timestamp:
May 22, 2010, 7:17:19 AM (10 years ago)
Author:
gb
Message:

And we need to continue to tweak those mechanisms.

File:
1 edited

Legend:

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

    r13707 r13715  
    6464    (with-dll-node-freelist (constant-pool arm::*lap-instruction-freelist*)
    6565      (let* ((arm::*lap-labels* ())
     66             (name-cell (list name))
    6667             (arm::*arm-constants* ())
    6768             (*arm-lap-lfun-bits* bits)
     
    7374        (dolist (form body)
    7475          (setq current (arm-lap-form form current sections)))
    75         (arm-lap-generate-code name
    76                                primary
     76        (rplacd name-cell (length arm::*arm-constants*))
     77        (push name-cell arm::*arm-constants*)
     78        (arm-lap-generate-code primary
    7779                               (arm::arm-finalize primary  constant-pool)
    7880                               *arm-lap-lfun-bits*)))))
     
    8486
    8587
    86 (defun arm-lap-generate-code (name seg code-vector-size bits)
     88(defun arm-lap-generate-code (seg code-vector-size bits)
    8789  (declare (fixnum code-vector-size))
    8890  (let* ((target-backend *target-backend*)
     
    9092                           (:arm (not (eq *host-backend* target-backend)))
    9193                           (t t)))
    92          (constants-size (+ 4 (length arm::*arm-constants*)))
     94         (constants-size (+ 3 (length arm::*arm-constants*)))
    9395         (constants-vector (%alloc-misc
    9496                            constants-size
     
    113115          (setf (uvref constants-vector (+ 2 k)) imm)))
    114116      (setf (uvref constants-vector (1- constants-size)) bits ; lfun-bits
    115             (uvref constants-vector (- constants-size 2)) name
    116117            (uvref constants-vector 1) code-vector)
    117118      #+arm-target (%make-code-executable code-vector)
Note: See TracChangeset for help on using the changeset viewer.