Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/X86/X8664/x8664-backend.lisp

    r7134 r7376  
    489489                    (lets (list name `(%inc-ptr ,stack-ptr ,(prog1 memory-arg-offset
    490490                                                                   (incf memory-arg-offset (* 8 (ceiling bits 64)))))))
    491                          (dynamic-extent-names name))
     491                    (dynamic-extent-names name))
    492492                  (progn
    493493                    (rlets (list name (foreign-record-type-name argtype)))
     
    511511                               (:unsigned-byte '%get-unsigned-byte)
    512512                               (:address
    513                                 (dynamic-extent-names name)
     513                                ;(dynamic-extent-names name)
    514514                                '%get-ptr))
    515515                             ,stack-ptr
Note: See TracChangeset for help on using the changeset viewer.