Changeset 6318

Timestamp:

Apr 20, 2007, 2:16:00 AM (18 years ago)

Author:

Gary Byers

Message:

Support :talign pseudo-op.
Don't bother emitting SAVE-CLEANUP-CONTEXT vinsn on unwind-protect cleanup,
since we're already doing that after the TRA.

File:

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

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

@@ -5292 +5292 @@
                          (:long (frag-list-push-32 frag-list val))
                          (:quad (frag-list-push-64 frag-list val))
-                         (:align (finish-frag-for-align frag-list val))))
+                         (:align (finish-frag-for-align frag-list val))
+                         (:talign (finish-frag-for-talign frag-list val))))
                      (let* ((pos (frag-list-position frag-list))
                             (frag (frag-list-current frag-list))
@@ -5305 +5306 @@
                          (:quad (frag-list-push-64 frag-list 0)
                                 (setq reloctype :expr64))
-                         (:align (error ":align expression ~s not constant" arg)))
+                         ((:align :talign) (error "~s expression ~s not constant" directive arg)))
                        (when reloctype
                          (push
@@ -8207 +8208 @@
            (*x862-top-vstack-lcell* *x862-top-vstack-lcell*))
       (x862-open-undo $undostkblk)      ; tsp frame created by nthrow.
-      (! save-cleanup-context (aref *backend-labels* cleanup-label))
       (x862-vpush-register seg x8664::ra0)
       (x862-form seg nil nil cleanup-form)