Changeset 6504


Ignore:
Timestamp:
May 9, 2007, 8:33:45 AM (15 years ago)
Author:
gb
Message:

RLET, MAKE-RECORD, etc: don't set pointer type in cross-compiled code.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lib/macros.lisp

    r6222 r6504  
    28022802                           ordinal
    28032803                           `(foreign-type-ordinal (load-time-value (%foreign-type-or-record ',record-name))))))
    2804       (setq result (nconc result `((%set-macptr-type ,name ,ordinal-form))))
     2804      (when (eq *host-backend* *target-backend*)
     2805        (setq result (nconc result `((%set-macptr-type ,name ,ordinal-form)))))
    28052806      (if (typep ftype 'foreign-record-type)
    28062807        (setq result
     
    28552856         (bzero (read-from-string "#_bzero")))   
    28562857    `(let* ((,p (,allocator ,bytes)))
    2857       (%set-macptr-type ,p ,ordinal-form)
     2858      ,@(when (eq *host-backend* *target-backend*)
     2859              `((%set-macptr-type ,p ,ordinal-form)))
    28582860      (,bzero ,p ,bytes)
    28592861      ,@(%foreign-record-field-forms p ftype record-name initforms)
Note: See TracChangeset for help on using the changeset viewer.