Changeset 14257 for release


Ignore:
Timestamp:
Sep 14, 2010, 11:41:20 AM (9 years ago)
Author:
gb
Message:

Add missing vinsn attrs, in 1.5 branch.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.5/source/compiler/X86/X8664/x8664-vinsns.lisp

    r13561 r14257  
    11851185
    11861186;;; Call a subprimitive using a tail-aligned CALL instruction.
    1187 (define-x8664-vinsn (call-subprim :call) (()
    1188                                            ((spno :s32const))
    1189                                            ((entry (:label 1))))
     1187(define-x8664-vinsn (call-subprim :call :subprim-call) (()
     1188                                                        ((spno :s32const))
     1189                                                        ((entry (:label 1))))
    11901190  (:talign 4)
    11911191  (call (:@ spno))
     
    13611361
    13621362
    1363 (define-x8664-vinsn (fix-fixnum-overflow-ool :call)
     1363(define-x8664-vinsn (fix-fixnum-overflow-ool :call :subprim-call)
    13641364    (((val :lisp))
    13651365     ((val :lisp))
     
    13851385  (jmp :done))
    13861386
    1387 (define-x8664-vinsn (fix-fixnum-overflow-ool-and-branch :call)
     1387(define-x8664-vinsn (fix-fixnum-overflow-ool-and-branch :call :subprim-call)
    13881388    (((val :lisp))
    13891389     ((val :lisp)
     
    17821782
    17831783;;; %ra0 is pointing into %fn, so no need to copy %fn here.
    1784 (define-x8664-vinsn pass-multiple-values-symbol (()
    1785                                                 ())
     1784(define-x8664-vinsn (pass-multiple-values-symbol :jumplr) (()
     1785                                                        ())
    17861786  (pushq (:@ (:apply + (:apply target-nil-value) (x8664::%kernel-global 'x86::ret1valaddr))))
    17871787  (jmp (:@ x8664::symbol.fcell (:% x8664::fname))))
     
    17891789;;; It'd be good to have a variant that deals with a known function
    17901790;;; as well as this.
    1791 (define-x8664-vinsn pass-multiple-values (()
    1792                                           ()
    1793                                           ((tag :u8)))
     1791(define-x8664-vinsn (pass-multiple-values :jumplr) (()
     1792                                                  ()
     1793                                                  ((tag :u8)))
    17941794  :resume
    17951795  (movl (:%l x8664::temp0) (:%l tag))
     
    18221822
    18231823(define-x8664-vinsn (jump-known-function :jumplr) (()
    1824                                                    ())
     1824                                                   ()
     1825                                                   ((xfn (:lisp #.x8664::xfn))))
    18251826  (movq (:%q x8664::fn) (:%q x8664::xfn))
    18261827  (movq (:%q x8664::temp0)  (:%q x8664::fn))
     
    20512052;;; Call something callable and obtain the single value that it
    20522053;;; returns.
    2053 (define-x8664-vinsn funcall (()
    2054                              ()
    2055                              ((tag :u8)
    2056                               (entry (:label 1))))
     2054(define-x8664-vinsn (funcall :call) (()
     2055                                     ()
     2056                                     ((tag :u8)
     2057                                      (entry (:label 1))))
    20572058  :resume
    20582059  (movl (:%l x8664::temp0) (:%l tag))
     
    20692070  (:anchored-uuo (uuo-error-not-callable)))
    20702071
    2071 (define-x8664-vinsn tail-funcall (()
    2072                                   ()
    2073                                   ((tag (:u8 #.x8664::imm0))))
     2072(define-x8664-vinsn (tail-funcall :jumplr) (()
     2073                                            ()
     2074                                            ((tag (:u8 #.x8664::imm0))))
    20742075  :resume
    20752076  (movl (:%l x8664::temp0) (:%l tag))
Note: See TracChangeset for help on using the changeset viewer.