Skip to content
Snippets Groups Projects
Commit 273738fb authored by Andreas Fuchs's avatar Andreas Fuchs
Browse files

Fix a weird error on OS X when Cmd-Tab'ing to X11 and multibyte string lookup.

This now uses excl:aclmalloc, like the documentation suggests, and no longer 
declares the result to be an incompatible pointer type.
parent 76c8dd65
No related branches found
No related tags found
No related merge requests found
......@@ -4,6 +4,11 @@ don't forget to change the version in utils/packages.lisp if you do anything
user visible.
*******************************************************************************
2009-06-16 Andreas Fuchs <afuchs@franz.com>
* tk/xm-widgets.lisp: Fix the allocation of string lookup buffers for multibyte
strings. This uses aclmalloc now, like the docs suggest.
2009-05-14 Andreas Fuchs <afuchs@franz.com>
* silica/db-scroll.lisp: new gf `medium-can-scroll-by-copy-region-p':
......
......@@ -321,8 +321,7 @@
(defmacro with-lookup-string-buffer ((var) &body body)
`(let ((,var (or (excl:without-interrupts (pop *lookup-string-buffers*))
(excl::malloc *lookup-string-buffer-size*))))
(declare (type (unsigned-byte 8) buffer)) ; HUH??? an 8-bit word??
(excl::aclmalloc *lookup-string-buffer-size*))))
(multiple-value-prog1
(progn ,@body)
(excl:without-interrupts (push buffer *lookup-string-buffers*)))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment