Changeset 6362 for branches/x8664-call


Ignore:
Timestamp:
Apr 29, 2007, 9:25:22 AM (13 years ago)
Author:
gb
Message:

Don't set foreign record types when cross-compiling; too much confusion
between host/target.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/lib/macros.lisp

    r6222 r6362  
    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.