Changeset 9755 for branches

Timestamp:

Jun 13, 2008, 6:43:28 PM (16 years ago)

Author:

R. Matthew Emerson

Message:

Add missing vinsn misc-set-c-u8

File:

• branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp (modified) (2 diffs)

branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp

@@ -1980 +1980 @@
   (movb (:$b val) (:@ (:%l ptr) (:%l offset))))
 
+(define-x8632-vinsn misc-set-c-u8  (((val :u8))
+                                    ((v :lisp)
+                                     (idx :u32const))
+                                    ())
+  (movb (:%b val) (:@ (:apply + x8632::misc-data-offset idx) (:%l v))))
+
 (define-x8632-vinsn misc-set-u8  (((val :u8))
                                   ((v :lisp)
@@ -3837 +3843 @@
   (movss (:%xmm x8632::fpzero) (:@ (:%seg :rcontext) x8632::tcr.save3)))
 
+(define-x8632-subprim-call-vinsn (aset1)  .SPaset1)
+
 (queue-fixup
  (fixup-x86-vinsn-templates