Changeset 7376
- Timestamp:
- Oct 11, 2007, 3:31:40 AM (12 years ago)
- Location:
- trunk/ccl
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/compiler/X86/X8664/x8664-backend.lisp
r7134 r7376 489 489 (lets (list name `(%inc-ptr ,stack-ptr ,(prog1 memory-arg-offset 490 490 (incf memory-arg-offset (* 8 (ceiling bits 64))))))) 491 491 (dynamic-extent-names name)) 492 492 (progn 493 493 (rlets (list name (foreign-record-type-name argtype))) … … 511 511 (:unsigned-byte '%get-unsigned-byte) 512 512 (:address 513 (dynamic-extent-names name)513 ;(dynamic-extent-names name) 514 514 '%get-ptr)) 515 515 ,stack-ptr -
trunk/ccl/lib/ffi-darwinppc32.lisp
r7135 r7376 217 217 (lets (list name `(%inc-ptr ,stack-ptr ,offset )))))) 218 218 (lets (list name (next-scalar-arg argtype)))) 219 #+nil 219 220 (when (or (typep argtype 'foreign-pointer-type) 220 221 (typep argtype 'foreign-array-type)) -
trunk/ccl/lib/ffi-darwinppc64.lisp
r7135 r7376 504 504 ,(* 8 (1- fp-arg-num))))))))))))) 505 505 (lets (list name (next-scalar-arg argtype)))) 506 #+nil 506 507 (when (or (typep argtype 'foreign-pointer-type) 507 508 (typep argtype 'foreign-array-type)) -
trunk/ccl/lib/ffi-linuxppc32.lisp
r7135 r7376 188 188 ,(+ target bias)))) 189 189 (lets (list name access-form)) 190 #+nil 190 191 (when (eq spec :address) 191 192 (dynamic-extent-names name))
Note: See TracChangeset
for help on using the changeset viewer.