Changeset 5218

Timestamp:

Sep 19, 2006, 12:36:33 AM (18 years ago)

Author:

Gary Byers

Message:

handle require-[us][8,16,32,64] operators.

File:

• trunk/ccl/compiler/PPC/ppc2.lisp (modified) (1 diff)

trunk/ccl/compiler/PPC/ppc2.lisp

@@ -7556 +7556 @@
   (def-ppc2-require ppc2-require-character require-character)
   (def-ppc2-require ppc2-require-number require-number)
-  (def-ppc2-require ppc2-require-symbol require-symbol))
+  (def-ppc2-require ppc2-require-symbol require-symbol)
+  (def-ppc2-require ppc2-require-s8 require-s8)
+  (def-ppc2-require ppc2-require-s8 require-u8)
+  (def-ppc2-require ppc2-require-s8 require-s16)
+  (def-ppc2-require ppc2-require-s8 require-u16)
+  (def-ppc2-require ppc2-require-s8 require-s32)
+  (def-ppc2-require ppc2-require-s8 require-u32)
+  (def-ppc2-require ppc2-require-s8 require-s64)
+  (def-ppc2-require ppc2-require-s8 require-u64))
 
 (defppc2 ppc2-%badarg2 %badarg2 (seg vreg xfer badthing goodthing)