Changeset 6395 for branches/x8664-call


Ignore:
Timestamp:
May 3, 2007, 4:56:50 PM (13 years ago)
Author:
gb
Message:

Need to revive the old MKUNWIND, to keep PROGV from losing.

File:
1 edited

Legend:

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

    r6376 r6395  
    17941794  (jmp (:@ .SPnmkunwind)))
    17951795
     1796;;; "old" mkunwind.  Used by PROGV, since the binding of *interrupt-level*
     1797;;; on entry to the new mkunwind confuses the issue.
     1798
     1799(define-x8664-vinsn (mkunwind :call :subprim-call) (()
     1800                                                     ((protform-lab :label)
     1801                                                      (cleanup-lab :label)))
     1802  (leaq (:@ (:^ protform-lab) (:%q x8664::fn)) (:%q x8664::ra0))
     1803  (leaq (:@ (:^ cleanup-lab)  (:%q x8664::fn)) (:%q x8664::xfn))
     1804  (jmp (:@ .SPmkunwind)))
    17961805
    17971806(define-x8664-subprim-lea-jmp-vinsn (gvector) .SPgvector)
Note: See TracChangeset for help on using the changeset viewer.