Changeset 15519


Ignore:
Timestamp:
Nov 29, 2012, 7:32:15 PM (7 years ago)
Author:
gb
Message:

POPJ vinsn pops from :VSP.

Location:
trunk/source/compiler/X86
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/X8632/x8632-vinsns.lisp

    r15495 r15519  
    491491  (movl (:%l src) (:@ (:apply - (:apply + (:apply calc-lcell-offset cell) x8632::word-size-in-bytes)) (:%l x8632::ebp))))
    492492       
    493 (define-x8632-vinsn (popj :lispcontext :pop :csp :lrRestore :jumpLR)
     493(define-x8632-vinsn (popj :lispcontext :pop :vsp :lrRestore :jumpLR)
    494494    (()
    495495     ())
  • trunk/source/compiler/X86/X8664/x8664-vinsns.lisp

    r15495 r15519  
    593593  (movq (:%q src) (:@ (:apply - (:apply + (:apply calc-lcell-offset cell) x8664::word-size-in-bytes)) (:%q x8664::rbp))))
    594594       
    595 (define-x8664-vinsn (popj :lispcontext :pop :csp :lrRestore :jumpLR)
     595(define-x8664-vinsn (popj :lispcontext :pop :vsp :lrRestore :jumpLR)
    596596    (()
    597597     ())
Note: See TracChangeset for help on using the changeset viewer.