Changeset 7376


Ignore:
Timestamp:
Oct 11, 2007, 3:31:40 AM (12 years ago)
Author:
gb
Message:

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

Location:
trunk/ccl
Files:
4 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
  • trunk/ccl/lib/ffi-darwinppc32.lisp

    r7135 r7376  
    217217                    (lets (list name `(%inc-ptr ,stack-ptr ,offset ))))))
    218218              (lets (list name (next-scalar-arg argtype))))
     219            #+nil
    219220            (when (or (typep argtype 'foreign-pointer-type)
    220221                      (typep argtype 'foreign-array-type))
  • trunk/ccl/lib/ffi-darwinppc64.lisp

    r7135 r7376  
    504504                                          ,(* 8 (1- fp-arg-num)))))))))))))
    505505                (lets (list name (next-scalar-arg argtype))))
     506              #+nil
    506507              (when (or (typep argtype 'foreign-pointer-type)
    507508                        (typep argtype 'foreign-array-type))
  • trunk/ccl/lib/ffi-linuxppc32.lisp

    r7135 r7376  
    188188                          ,(+ target bias))))
    189189                  (lets (list name access-form))
     190                  #+nil
    190191                  (when (eq spec :address)
    191192                    (dynamic-extent-names name))
Note: See TracChangeset for help on using the changeset viewer.