Changeset 14724


Ignore:
Timestamp:
Apr 22, 2011, 7:35:38 PM (8 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/foreign-types.lisp

    r14507 r14724  
    13791379            (size (foreign-type-bits to))
    13801380            (bit-offset `(the fixnum (* ,size (the fixnum ,index-form)))))
    1381        (invoke-foreign-type-method :extract-gen to base-form bit-offset)))))
     1381       (invoke-foreign-type-method :extract-gen to base-form bit-offset)))
     1382    (foreign-type
     1383     (%foreign-array-access-form base-form (make-foreign-pointer-type :to type) index-form))))
    13821384
    13831385
Note: See TracChangeset for help on using the changeset viewer.