Changeset 11072


Ignore:
Timestamp:
Oct 13, 2008, 4:17:46 PM (11 years ago)
Author:
rme
Message:

Provide vinsn MISC-SET-SINGLE-FLOAT.

File:
1 edited

Legend:

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

    r11066 r11072  
    7979                                             ())
    8080  (movl (:$l val) (:@ x8632::misc-data-offset (:%l v) (:%l unscaled-idx))))
     81
     82(define-x8632-vinsn misc-set-single-float (()
     83                                           ((val :single-float)
     84                                            (v :lisp)
     85                                            (scaled-idx :u32))
     86                                           ())
     87  (movss (:%xmm val) (:@ x8632::misc-data-offset (:%l v) (:%l scaled-idx))))
    8188
    8289(define-x8632-vinsn misc-set-double-float (()
Note: See TracChangeset for help on using the changeset viewer.