Changeset 388

Timestamp:

Jan 25, 2004, 1:59:15 PM (21 years ago)

Author:

Gary Byers

Message:

%composite-pointer-ref.

File:

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

trunk/ccl/compiler/optimizers.lisp

@@ -1548 +1548 @@
           (= ,typecode ppc32::subtag-bignum)))))
        
-
+(define-compiler-macro %composite-pointer-ref (size pointer offset)
+  (if (constantp size)
+    `(%inc-ptr ,pointer ,offset)
+    `(progn
+      ,size
+      (%inc-ptr ,pointer ,offset))))
 
 (provide "OPTIMIZERS")