Custom Query (1030 matches)

It was reported (by David Brown on Feb 10,2008} that the following code crashes

(let ((shared1 (make-array 8 :element-type '(unsigned-byte 8)))
       (shared2 (make-array 8 :element-type '(unsigned-byte 8))))
   (ccl:with-pointer-to-ivector (%shared1 shared1)
     (ccl:with-pointer-to-ivector (%shared2 shared2)
       (%stack-block ((stacky 8))
         (format t "~A~%~A~%~A~%" %shared1 %shared2 stacky)))))

This should have been fixed in recent checkins, but a test case for the bug is here for the record.

UFFI uses internal CCL functions, some of which do not work any more:

%set-cstring assumed byte-wide characters

%find-foreign-record first looked for a structure definition, then for a union definition. For unions, it appears that the struct definition that was created for unions was always returned. I reversed the order (first look for a union definition, then for a structure definition for a given name) which fixes the problem for the UFFI test suite. This needs review.

Patch attached.

%SET-CSTRING (which is the SETF inverse of %GET-CSTRING) tries to use %COPY-IVECTOR-TO-PTR; that can't work (since strings are always UTF-32 internally).

(This was originally part of ticket:241)