Changeset 4989

Timestamp:

Aug 22, 2006, 12:45:53 AM (18 years ago)

Author:

Gary Byers

Message:

Use CROSS-CREATE-X86-FUNCTION if not compiling natively.

Fix X862-FIXUP-FWD-REFS if not native function on x86.

File:

• trunk/ccl/compiler/X86/x862.lisp (modified) (2 diffs)

trunk/ccl/compiler/X86/x862.lisp

@@ -596 +596 @@
                      (x862-lap-process-regsave-info frag-list regsave-label regsave-mask regsave-addr)
                      (setf (afunc-lfun afunc)
-                           (#+x86-target
-                            create-x86-function
-                            #-x86-target
-                            cross-create-x86-function
-                            fname
-                            frag-list
-                            *x862-constant-alist*
-                            bits
-                            debug-info)))
+                           #+x86-target
+                           (if (eq *host-backend* *target-backend*)
+                             (create-x86-function fname frag-list *x862-constant-alist* bits debug-info)
+                             (cross-create-x86-function fname frag-list *x862-constant-alist* bits debug-info))
+                           #-x86-target
+                           (cross-create-x86-function fname frag-list *x862-constant-alist* bits debug-info)))
                    (x862-digest-symbols))))
           (backend-remove-labels))))
@@ -620 +617 @@
   (let ((fwd-refs (afunc-fwd-refs afunc)))
     (when fwd-refs
-      (let* ((v (function-to-function-vector (afunc-lfun afunc)))
+      (let* ((native-x8664-functions #-x8664-target nil
+                                     #+x8664-target (eq *target-backend*
+                                                        *host-backend*))
+             (v (if native-x8664-functions
+                  (function-to-function-vector (afunc-lfun afunc))
+                  (afunc-lfun afunc)))
              (vlen (uvsize v)))
         (declare (fixnum vlen))
         (dolist (ref fwd-refs)
           (let* ((ref-fun (afunc-lfun ref)))
-            (do* ((i #+x8664-target (%function-code-words
-                                     (%function-vector-to-function v))
-                     #-x8664-target 1
+            (do* ((i (if native-x8664-functions
+                       (%function-code-words
+                        (%function-vector-to-function v))
+                       1)
                      (1+ i)))
                  ((= i vlen))