Changeset 6322

Timestamp:

Apr 22, 2007, 3:38:50 AM (18 years ago)

Author:

Gary Byers

Message:

Prepend an rip-relative LEA that sets %fn; this will mean (with GC
support) that caller doesn't have to set %fn.

File:

• branches/x8664-call/ccl/compiler/X86/x86-lap.lisp (modified) (2 diffs)

branches/x8664-call/ccl/compiler/X86/x86-lap.lisp

@@ -1373 +1373 @@
          (*x86-lap-lfun-bits* bits)
          (end-code-tag (gensym))
+         (entry-code-tag (gensym))
          (instruction (x86::make-x86-instruction))
          (frag-list (make-frag-list)))
     (make-x86-lap-label end-code-tag)
+    (make-x86-lap-label entry-code-tag)
     (x86-lap-directive frag-list :long `(ash (+ (- (:^ ,end-code-tag ) 8)
                                               *x86-lap-entry-offset*) -3))
@@ -1381 +1383 @@
     (x86-lap-directive frag-list :byte 0) ;regsave ea
     (x86-lap-directive frag-list :byte 0) ;regsave mask
+    (emit-x86-lap-label frag-list entry-code-tag)
+    (x86-lap-form `(lea (@ (:^ ,entry-code-tag) (% rip)) (% fn)) frag-list instruction)
     (dolist (f forms)
       (x86-lap-form f frag-list instruction))