Changeset 6318


Ignore:
Timestamp:
Apr 20, 2007, 9:16:00 AM (15 years ago)
Author:
gb
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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/compiler/X86/x862.lisp

    r6294 r6318  
    52925292                         (:long (frag-list-push-32 frag-list val))
    52935293                         (:quad (frag-list-push-64 frag-list val))
    5294                          (:align (finish-frag-for-align frag-list val))))
     5294                         (:align (finish-frag-for-align frag-list val))
     5295                         (:talign (finish-frag-for-talign frag-list val))))
    52955296                     (let* ((pos (frag-list-position frag-list))
    52965297                            (frag (frag-list-current frag-list))
     
    53055306                         (:quad (frag-list-push-64 frag-list 0)
    53065307                                (setq reloctype :expr64))
    5307                          (:align (error ":align expression ~s not constant" arg)))
     5308                         ((:align :talign) (error "~s expression ~s not constant" directive arg)))
    53085309                       (when reloctype
    53095310                         (push
     
    82078208           (*x862-top-vstack-lcell* *x862-top-vstack-lcell*))
    82088209      (x862-open-undo $undostkblk)      ; tsp frame created by nthrow.
    8209       (! save-cleanup-context (aref *backend-labels* cleanup-label))
    82108210      (x862-vpush-register seg x8664::ra0)
    82118211      (x862-form seg nil nil cleanup-form)
Note: See TracChangeset for help on using the changeset viewer.