Changeset 8064

Timestamp:

Jan 14, 2008, 6:35:55 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

Fix up function self-reference values.

File:

• branches/ia32/xdump/xfasload.lisp (modified) (2 diffs)

branches/ia32/xdump/xfasload.lisp

@@ -1659 +1659 @@
     (setq *xload-loading-file-source-file* path)))
 
+;;; Use the offsets in the self-reference table to replace the :self
+;;; in (movl ($ :self) (% fn)) wih the function's actual address.
+;;; (x8632 only)
+(defun xload-fixup-self-references (addr)
+  (let* ((imm-word-count (xload-u16-at-address
+                          (+ addr *xload-target-misc-data-offset*))))
+    (do* ((i (- imm-word-count 2) (1- i))
+          (offset (xload-%fullword-ref addr i) (xload-%fullword-ref addr i)))
+         ((zerop offset))
+      (setf (xload-u8-at-address (+ *xload-target-misc-header-offset*
+                                    addr
+                                    offset
+                                    0))
+                                 (ldb (byte 8 0) addr)
+            (xload-u8-at-address (+ *xload-target-misc-header-offset*
+                                    addr
+                                    offset
+                                    1))
+                                 (ldb (byte 8 8) addr)
+            (xload-u8-at-address (+ *xload-target-misc-header-offset*
+                                    addr
+                                    offset
+                                    2))
+                                 (ldb (byte 8 16) addr)
+            (xload-u8-at-address (+ *xload-target-misc-header-offset*
+                                    addr
+                                    offset
+                                    3))
+                                 (ldb (byte 8 24) addr)))))
+      
 (defxloadfaslop $fasl-clfun (s)
   (let* ((size-in-elements (%fasl-read-count s))
@@ -1675 +1705 @@
         (%fasl-read-n-bytes s v (+ o *xload-target-misc-data-offset*)
                             (ash size-of-code *xload-target-fixnumshift*))
+        (target-arch-case
+         (:x8632 (xload-fixup-self-references vector)))
         (do* ((numconst (- size-in-elements size-of-code))
               (i 0 (1+ i))