Changeset 6504

Timestamp:

May 9, 2007, 1:33:45 AM (18 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/ccl/lib/macros.lisp (modified) (2 diffs)

trunk/ccl/lib/macros.lisp

@@ -2802 +2802 @@
                            ordinal
                            `(foreign-type-ordinal (load-time-value (%foreign-type-or-record ',record-name))))))
-      (setq result (nconc result `((%set-macptr-type ,name ,ordinal-form))))
+      (when (eq *host-backend* *target-backend*)
+        (setq result (nconc result `((%set-macptr-type ,name ,ordinal-form)))))
       (if (typep ftype 'foreign-record-type)
         (setq result
@@ -2855 +2856 @@
          (bzero (read-from-string "#_bzero")))    
     `(let* ((,p (,allocator ,bytes)))
-      (%set-macptr-type ,p ,ordinal-form)
+      ,@(when (eq *host-backend* *target-backend*)
+              `((%set-macptr-type ,p ,ordinal-form)))
       (,bzero ,p ,bytes)
       ,@(%foreign-record-field-forms p ftype record-name initforms)