Changeset 7376 for trunk/ccl/compiler/X86/X8664/x8664-backend.lisp

Timestamp:

Oct 11, 2007, 3:31:40 AM (13 years ago)

Author:

gb

Message:

Don't automatically generate DYNAMIC-EXTENT declarations for simple
pointer-typed callback arguments.

File:

• trunk/ccl/compiler/X86/X8664/x8664-backend.lisp (modified) (2 diffs)

trunk/ccl/compiler/X86/X8664/x8664-backend.lisp

@@ -489 +489 @@
                     (lets (list name `(%inc-ptr ,stack-ptr ,(prog1 memory-arg-offset
                                                                    (incf memory-arg-offset (* 8 (ceiling bits 64)))))))
-                         (dynamic-extent-names name))
+                    (dynamic-extent-names name))
                   (progn
                     (rlets (list name (foreign-record-type-name argtype)))
@@ -511 +511 @@
                                (:unsigned-byte '%get-unsigned-byte)
                                (:address
-                                (dynamic-extent-names name)
+                                ;(dynamic-extent-names name)
                                 '%get-ptr))
                              ,stack-ptr