Changeset 5810

Timestamp:

Jan 29, 2007, 3:37:17 AM (18 years ago)

Author:

Gary Byers

Message:

Fix some typos/bugs; more likely remain.

File:

• trunk/ccl/lib/ffi-linuxppc64.lisp (modified) (2 diffs)

trunk/ccl/lib/ffi-linuxppc64.lisp

@@ -109 +109 @@
                  (bits (ensure-foreign-type-bits argtype)))
             (if (and (typep argtype 'foreign-record-type)
-                     (< bits 63))
+                     (< bits 64))
               (progn
                 (rlets (list name (foreign-record-type-name argtype)))
@@ -140 +140 @@
                                (typep argtype 'foreign-array-type))
                            '%get-ptr)
+                          ((typep argtype 'foreign-record-type)
+                           (setq delta (* (ceiling bits 64) 8))
+                           '%inc-ptr)
                           (t
                            (cond ((typep argtype 'foreign-integer-type)