Public bug reported:

Binary package hint: clisp

A unittest in "tests/ffi.tst" (found in the clisp source package) segfaults in 
64bit Ubuntu. Specifically, it seems like the following lines provokes the 
problem:
----
(progn
  (defparameter *x* 0)
  (defun callback (x)
    (the (unsigned-byte 16) x)
    (setf *x* x)
    (the (unsigned-byte 16) (1+ (* 2 x))))
  *x*)
0

(def-c-type idfun
 (c-function (:arguments (x uint)) (:return-type uint)
   (:language :stdc)))
IDFUN

;; convert forth and back
(type-of (setq callbackf (with-c-var (x 'idfun #'callback) x)))
FOREIGN-FUNCTION

(list (funcall callbackf 32767) *x*)
(65535 32767)
----

** Affects: clisp (Ubuntu)
     Importance: Undecided
         Status: New

-- 
Crash in unit tests on AMD64
https://bugs.launchpad.net/bugs/380709
You received this bug notification because you are a member of Ubuntu
Bugs, which is subscribed to Ubuntu.

-- 
ubuntu-bugs mailing list
ubuntu-bugs@lists.ubuntu.com
https://lists.ubuntu.com/mailman/listinfo/ubuntu-bugs

Reply via email to