I can also confirm experiencing the same kind of problems with 4.7.0.
However, this was always in conjunction with some FFI code, and only
recently I began suspecting that segfaults can occur in pure Scheme code.

   Ivan
On Feb 3, 2013 9:11 AM, "Arthur Maciel" <[email protected]> wrote:

> Jim, I was running 4.8.0.1, but I tried 4.7.0.6 and got the same results.
>
> Thanks for the attention.
>
> 2013/2/2 Jim Ursetto <[email protected]>
>
>> What version of chicken, and if 4.8.0 for example could you try 4.7?
>>
>> On Feb 2, 2013, at 11:51, Arthur Maciel <[email protected]> wrote:
>>
>> > Hello! I don't know if it is related to Ivan's problem, but when I
>> compile and run this code:
>> >
>> > (use srfi-69)
>> >
>> > (define NODES 250000)
>> > (define EDGES 1000)
>> >
>> > (define graph (make-hash-table))
>> >
>> > (define (insert-edges)
>> >   (printf "~N Hash-tables - Inserting edges ~N")
>> >   (do ((n 1 (+ n 1))) ((= n NODES))
>> >     (if (= (remainder n 5000) 0)
>> >         (printf " ~S nodes inserted ~N" n))
>> >     (do ((e 2 (+ e 1))) ((= e (+ 1 EDGES)))
>> >       (hash-table-update!/default graph
>> >                                   n
>> >                                   (lambda (edges-list)
>> >                                     (if (member e edges-list)
>> >                                         edges-list
>> >                                         (cons e edges-list)))
>> >                                   (list e)))))
>> >
>> > (time  (insert-edges))
>> >
>> > I get this:
>> >
>> >  $ csc list-in-hash-table-partials.scm -o list-partials.scm
>> >  $ ./list-partials.scm
>> >
>> >  Hash-tables - Inserting edges
>> >  5000 nodes inserted
>> >  10000 nodes inserted
>> >  15000 nodes inserted
>> >  20000 nodes inserted
>> >  25000 nodes inserted
>> >  30000 nodes inserted
>> >  35000 nodes inserted
>> >  40000 nodes inserted
>> > Segmentation fault
>> >
>> >
>> > I tried to compile with -O2, -O -d2 and -O3. It doesn't make difference
>> for me: it always present a segfault. Any hint on how to make it work?
>> >
>> > Thanks!
>> > Arthur
>> > _______________________________________________
>> > Chicken-users mailing list
>> > [email protected]
>> > https://lists.nongnu.org/mailman/listinfo/chicken-users
>>
>
>
> _______________________________________________
> Chicken-users mailing list
> [email protected]
> https://lists.nongnu.org/mailman/listinfo/chicken-users
>
>
_______________________________________________
Chicken-users mailing list
[email protected]
https://lists.nongnu.org/mailman/listinfo/chicken-users

Reply via email to