Changeset 16494


Ignore:
Timestamp:
Aug 6, 2015, 2:42:18 AM (4 years ago)
Author:
gb
Message:

! call-subprim-no-return. Tired of losing this change in editing mishaps.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/lscan/source/compiler/X86/X8664/x8664-vinsns.lisp

    r16492 r16494  
    13901390  (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn)))
    13911391
    1392 ;; use a call instruction here, but don't kill live registers.
    13931392(define-x8664-vinsn (call-subprim-no-return) (()
    13941393                                                   ((spno :s32const))
     
    13971396  (call (:@ spno))
    13981397  (leaq (:@ (:^ entry) (:% x8664::rip)) (:%q x8664::fn)))
     1398
     1399
    13991400
    14001401(define-x8664-vinsn %logand-c (((dest t))
     
    40004001  (imulq (:$b x8664::fixnumone) (:%q imm)(:%q code)))
    40014002
    4002 (define-x8664-subprim-jump-vinsn (tail-call-sym-slide) .SPtcallsymslide)
    4003 
    4004 (define-x8664-subprim-jump-vinsn (tail-call-sym-vsp) .SPtcallsymvsp)
     4003(define-x8664-subprim-jump-vinsn (tail-call-sym-slide :needs-frame-pointer) .SPtcallsymslide)
     4004
     4005(define-x8664-subprim-jump-vinsn (tail-call-sym-vsp :needs-frame-pointer) .SPtcallsymvsp)
    40054006
    40064007
     
    40794080  (:anchored-uuo (uuo-error-udf (:%q sym))))
    40804081
    4081 (define-x8664-subprim-jump-vinsn (tail-call-fn-slide) .SPtcallnfnslide)
     4082(define-x8664-subprim-jump-vinsn (tail-call-fn-slide :needs-frame-pointer) .SPtcallnfnslide)
    40824083
    40834084(define-x8664-vinsn load-double-float-constant (((dest :double-float))
     
    40934094(define-x8664-subprim-call-vinsn (misc-set) .SPmisc-set)
    40944095
    4095 (define-x8664-subprim-lea-jmp-vinsn (slide-values) .SPmvslide)
     4096(define-x8664-subprim-lea-jmp-vinsn (slide-values :needs-frame-pointer) .SPmvslide)
    40964097
    40974098(define-x8664-subprim-lea-jmp-vinsn (spread-list)  .SPspreadargz)
     
    42014202  (jge :loop))
    42024203
    4203 (define-x8664-subprim-jump-vinsn (tail-funcall-slide) .SPtfuncallslide)
     4204(define-x8664-subprim-jump-vinsn (tail-funcall-slide :needs-frame-pointer) .SPtfuncallslide)
    42044205
    42054206(define-x8664-vinsn nth-value (((result :lisp))
     
    53335334  x86::*x86-opcode-template-lists* *x8664-backend*))
    53345335
    5335 (define-x8664-vinsn signal-type-error ()
    5336   (jmp :bad)
    5337   (:uuo-section)
    5338   :bad
    5339   (
     5336
    53405337(provide "X8664-VINSNS")
    53415338
Note: See TracChangeset for help on using the changeset viewer.