URL:
<http://savannah.gnu.org/bugs/?34140>
Summary: gc not run correctly when allocating threads
Project: Guile
Submitted by: tampe
Submitted on: Fri 26 Aug 2011 08:49:53 AM GMT
Category: None
Severity: 3 - Normal
Item Group: None
Status: None
Privacy: Public
Assigned to: None
Open/Closed: Open
Discussion Lock: Any
_______________________________________________________
Details:
On my machine this crashes after about 4000 iterations due to the oom killer.
The reason is mainly that stack space is not reclaimed.
(define (f n)
(let ((t (call-with-new-thread (lambda () 'ok))))
(join-thread t))
(if (= (modulo n 30) 0)
(begin
(pk n)
(pk (gc-stats))
(sleep 1)))
(f (+ n 1)))
(f 0)
On the other hand this code works perfectly (a explicit call to gc is used)
(define (f n)
(let ((t (call-with-new-thread (lambda () 'ok))))
(join-thread t))
(if (= (modulo n 10) 0) (pk (gc-stats)))
(if (= (modulo n 300) 0) (begin (pk n) (gc) (sleep 1)))
(f (+ n 1)))
(f 0)
It would be nice if the spawning of threads checked to gc stats
to run the gc appropriatly if there is not so much space left to allow for a
new thread.
/Stefan
_______________________________________________________
Reply to this item at:
<http://savannah.gnu.org/bugs/?34140>
_______________________________________________
Message sent via/by Savannah
http://savannah.gnu.org/
