Changeset 14724

Timestamp:

Apr 22, 2011, 7:35:38 PM (10 years ago)

Author:

gb

Message:

In %FOREIGN-ARRAY-ACCESS-FORM (which generates the expansion of PAREF),
treat non-pointer/array foreign types as shorthand for a pointer to
the indicated type, e.g., (PAREF P :DOUBLE I) and (PAREF P (:* :DOUBLE) I)
are now equivalent.

File:

• trunk/source/lib/foreign-types.lisp (modified) (1 diff)

trunk/source/lib/foreign-types.lisp

@@ -1379 +1379 @@
             (size (foreign-type-bits to))
             (bit-offset `(the fixnum (* ,size (the fixnum ,index-form)))))
-       (invoke-foreign-type-method :extract-gen to base-form bit-offset)))))
+       (invoke-foreign-type-method :extract-gen to base-form bit-offset)))
+    (foreign-type
+     (%foreign-array-access-form base-form (make-foreign-pointer-type :to type) index-form))))