Changeset 10958


Ignore:
Timestamp:
Oct 3, 2008, 9:23:21 PM (11 years ago)
Author:
gb
Message:

Define CCL::TARGET-NIL-VALUE and CCL::TARGET-NIL-VALUE, which should
be used instead of target::nil-value and target::t-value (which no
longer exist.) The new functions factor in BACKEND-LOWMEM-BIAS and
will hopefully allow us to deal with platforms that don't seem to
allow us to use (very)low-memory addresses.

Make SUBPRIM-NAME->OFFSET account for BACKEND-LOWMEM-BIAS, as well.
(I'm not sure if anything else knows/cares where the spjump table
is.)

Location:
trunk/source/compiler
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/backend.lisp

    r10945 r10958  
    474474    (setf (macro-function ',name) #'backend-arch-macroexpand)
    475475    ',name))
     476
     477(defun target-nil-value (&optional (backend *target-backend*))
     478  (+ (arch::target-nil-value (backend-target-arch backend))
     479     (backend-lowmem-bias backend)))
     480
     481(defun target-t-value (&optional (backend *target-backend*))
     482  (let* ((arch (backend-target-arch backend)))
     483    (+ (arch::target-nil-value arch)
     484       (arch::target-t-offset arch)
     485       (backend-lowmem-bias backend))))
     486
     487
     488     
  • trunk/source/compiler/subprims.lisp

    r2758 r10958  
    4343
    4444(defun subprim-name->offset (name &optional (backend *target-backend*))
    45   (%subprim-name->offset name  (arch::target-subprims-table
    46                                 (backend-target-arch backend))))
     45  (+ (backend-lowmem-bias backend)
     46     (%subprim-name->offset name  (arch::target-subprims-table
     47                                   (backend-target-arch backend)))))
    4748
    4849(provide "SUBPRIMS")
Note: See TracChangeset for help on using the changeset viewer.