[Chicken-users] Re: Some allocation and object-passing tests

[Category 5]

Some more interesting results.  I modified the test program slightly:

(define make-list
  (lambda (n)
    (let loop ((i 0)) (if (= i n) '() (cons i (loop (+ i 1)))))))
(define-external (scheme_callback1 ((c-pointer unsigned-char) udata))
  void
  (let ((p (pointer->object udata)))
    (gc)
    (assert (procedure? p) "assertion failed" p)
    (p (make-list 1000))))
...
(define handler (lambda (x) (print "it worked: " x)))

With these changes:

- dispatcher-gc-protect calls handler twice successfully and then dies
  with out of memory - heap full while resizing - execution terminated

- dispatcher-alloc-in-heap calls handler four times and then the
  assertion fails.

- dispatcher-malloc still works fine.

--