Changeset 5500

Timestamp:

Nov 6, 2006, 9:02:53 PM (18 years ago)

Author:

Gary Byers

Message:

Add vinsns for misc-set-s* and variants. (Identical to the unsigned
versions, but it helps not to have to remember which are implemented
and which aren't.)

Location:

trunk/ccl/compiler/PPC

Files:

• PPC32/ppc32-vinsns.lisp (modified) (3 diffs)
• PPC64/ppc64-vinsns.lisp (modified) (3 diffs)

trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp

@@ -118 +118 @@
   (stwx val v scaled-idx))
 
+(define-ppc32-vinsn misc-set-s32 (()
+                                  ((val :s32)
+                                   (v :lisp)
+                                   (scaled-idx :u32)))
+  (stwx val v scaled-idx))
+
                               
 (define-ppc32-vinsn misc-ref-single-float  (((dest :single-float))
@@ -202 +208 @@
   (lha dest (:apply + ppc32::misc-data-offset (:apply ash idx 1)) v))
 
+
+(define-ppc32-vinsn misc-set-c-s16  (((val :s16))
+                                     ((v :lisp)
+                                      (idx :u32const))
+                                     ())
+  (sth val (:apply + ppc32::misc-data-offset (:apply ash idx 1)) v))
+
+(define-ppc32-vinsn misc-set-s16 (((val :s16))
+                                  ((v :lisp)
+                                   (scaled-idx :s32)))
+  (sthx val v scaled-idx))
+
 (define-ppc32-vinsn misc-ref-u8  (((dest :u8))
                                   ((v :lisp)
@@ -240 +258 @@
   (extsb dest dest))
 
+(define-ppc32-vinsn misc-set-c-s8  (((val :s8))
+                                    ((v :lisp)
+                                     (idx :u32const))
+                                    ())
+  (stb val (:apply + ppc32::misc-data-offset idx) v))
+
+(define-ppc32-vinsn misc-set-s8  (((val :s8))
+                                  ((v :lisp)
+                                   (scaled-idx :u32))
+                                  ())
+  (stbx val v scaled-idx))
 
 (define-ppc32-vinsn misc-ref-c-bit (((dest :u8))

trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp

@@ -165 +165 @@
   (stwx val v scaled-idx))
 
+(define-ppc64-vinsn misc-set-c-s32 (()
+                                    ((val :s32)
+                                     (v :lisp)
+                                     (idx :u32const)))
+  (stw val (:apply + ppc64::misc-data-offset (:apply ash idx 2)) v))
+
+(define-ppc64-vinsn misc-set-s32 (()
+                                  ((val :s32)
+                                   (v :lisp)
+                                   (scaled-idx :u64)))
+  (stwx val v scaled-idx))
                               
 (define-ppc64-vinsn misc-ref-single-float  (((dest :single-float))
@@ -249 +260 @@
   (lha dest (:apply + ppc64::misc-data-offset (:apply ash idx 1)) v))
 
+(define-ppc64-vinsn misc-set-c-s16  (((val :s16))
+                                     ((v :lisp)
+                                      (idx :u32const))
+                                     ())
+  (sth val (:apply + ppc64::misc-data-offset (:apply ash idx 1)) v))
+
+(define-ppc64-vinsn misc-set-s16 (((val :s16))
+                                  ((v :lisp)
+                                   (scaled-idx :s64)))
+  (sthx val v scaled-idx))
+
 (define-ppc64-vinsn misc-ref-u8  (((dest :u8))
                                   ((v :lisp)
@@ -287 +309 @@
   (extsb dest dest))
 
+(define-ppc64-vinsn misc-set-c-s8  (((val :s8))
+                                    ((v :lisp)
+                                     (idx :u32const))
+                                    ())
+  (stb val (:apply + ppc64::misc-data-offset idx) v))
+
+(define-ppc64-vinsn misc-set-s8  (((val :s8))
+                                  ((v :lisp)
+                                   (scaled-idx :u64))
+                                  ())
+  (stbx val v scaled-idx))
 
 (define-ppc64-vinsn misc-ref-c-bit (((dest :u8))