Changeset 6294

Timestamp:

Apr 17, 2007, 7:58:29 PM (18 years ago)

Author:

Gary Byers

Message:

Some changes for new tagged-return-address scheme.

File:

• branches/x8664-call/ccl/compiler/X86/x862.lisp (modified) (5 diffs)

branches/x8664-call/ccl/compiler/X86/x862.lisp

@@ -2425 +2425 @@
   (with-x86-local-vinsn-macros (seg)
     (! emit-aligned-label (aref *backend-labels* labelnum))
-    (@ labelnum)))
+    (@ labelnum)
+    (! recover-fn-from-rip)))
 
   
@@ -2498 +2499 @@
                 (! pass-multiple-values))
               (when mvpass-label
-                (@= mvpass-label)
-                (! recover-fn-from-ra0 (aref *backend-labels* mvpass-label))))
+                (@= mvpass-label)))
             (progn 
               (if label-p
@@ -2554 +2554 @@
               (progn (! pass-multiple-values)
                      (when mvpass-label
-                       (@= mvpass-label)
-                       (! recover-fn-from-ra0 (aref *backend-labels* mvpass-label))))
+                       (@= mvpass-label)))
               (! funcall))                  
             (cond ((or (null nargs) spread-p)
@@ -7749 +7748 @@
     (x862-close-undo)
     (@= tag-label)
-    (! recover-fn-from-ra0  (aref *backend-labels* tag-label))
     (unless mv-pass (if vreg (<- x8664::arg_z)))
     (let* ((*x862-returning-values* mv-pass)) ; nlexit keeps values on stack
@@ -8202 +8200 @@
     (! ref-interrupt-level yreg)
     (x862-dbind seg (make-acode (%nx1-operator fixnum) -1) '*interrupt-level*)
-    (! mkunwind (aref *backend-labels* protform-label)
+    (! mkunwind
+       (aref *backend-labels* protform-label)
        (aref *backend-labels* cleanup-label))
     (@= cleanup-label)