Re: Likely bug: SMOBs and mark functions [Was: Re: [bug #30480] VM: load looks for files in the wrong directory]

[Luca Saiu <positron@gnu.org>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On 02/15/2011 12:59 PM, Luca Saiu wrote:
> The current thread is at (nil); Segmentation fault

Don't worry about the "The current thread is at (nil); ".  That was the
output of my debug printf :-), which I forgot to delete in that one
case.  Testing again on an unmodified guile:

[luca@optimum ~/projects-by-others/guile-from-git-mainline]$ cd
doc/example-smob/
[luca@optimum
~/projects-by-others/guile-from-git-mainline/doc/example-smob]$ ls
total 24
4 ChangeLog-2008  4 Makefile  4 README  4 image-type.c  4 myguile.c  4
image-type.h
[luca@optimum
~/projects-by-others/guile-from-git-mainline/doc/example-smob]$ make
cc `guile-config compile`   -c -o image-type.o image-type.c
cc `guile-config compile`   -c -o myguile.o myguile.c
cc image-type.o myguile.o `guile-config link` -o myguile
[luca@optimum
~/projects-by-others/guile-from-git-mainline/doc/example-smob]$ ./myguile
GNU Guile 1.9.15.114-b81eb
Copyright (C) 1995-2011 Free Software Foundation, Inc.

Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.

Enter `,help' for help.
scheme@(guile-user)> make-image
$1 = #<procedure make-image (_ _ _)>
scheme@(guile-user)> (define i (make-image "Whistler's Mother" 100 100))
scheme@(guile-user)> i
$2 = #<image Whistler's Mother>
scheme@(guile-user)> (gc)
Segmentation fault
[luca@optimum
~/projects-by-others/guile-from-git-mainline/doc/example-smob]$ gdb
- --args ./myguile
GNU gdb (GDB) 6.8.50.20090628-cvs-debian
Copyright (C) 2009 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later
<http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.  Type "show copying"
and "show warranty" for details.
This GDB was configured as "x86_64-linux-gnu".
For bug reporting instructions, please see:
<http://www.gnu.org/software/gdb/bugs/>...
(no debugging symbols found)
(gdb) run
Starting program:
/home/luca/projects-by-others/guile-from-git-mainline/doc/example-smob/myguile

[Thread debugging using libthread_db enabled]
[New Thread 0x7ffff602d710 (LWP 24847)]
[New Thread 0x7ffff582c710 (LWP 24848)]
[New Thread 0x7ffff502b710 (LWP 24849)]
[New Thread 0x7ffff482a710 (LWP 24850)]
[New Thread 0x7ffff4029710 (LWP 24851)]
[New Thread 0x7ffff3828710 (LWP 24852)]
[New Thread 0x7ffff3027710 (LWP 24853)]
[New Thread 0x7ffff1f76710 (LWP 24854)]
[New Thread 0x7ffff1775710 (LWP 24855)]
[New Thread 0x7ffff0f74710 (LWP 24856)]
[New Thread 0x7ffff0773710 (LWP 24857)]
[New Thread 0x7fffeff72710 (LWP 24858)]
[New Thread 0x7fffef771710 (LWP 24859)]
[New Thread 0x7fffeef70710 (LWP 24860)]
[New Thread 0x7fffee76f710 (LWP 24861)]
GNU Guile 1.9.15.114-b81eb
Copyright (C) 1995-2011 Free Software Foundation, Inc.

Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.

Enter `,help' for help.
scheme@(guile-user)> (define i (make-image "Whistler's Mother" 100 100))

Program received signal SIGPWR, Power fail/restart.

Program received signal SIGPWR, Power fail/restart.

Program received signal SIGPWR, Power fail/restart.

Program received signal SIGPWR, Power fail/restart.

Program received signal SIGPWR, Power fail/restart.

Program received signal SIGPWR, Power fail/restart.

Program received signal SIGPWR, Power fail/restart.

Program received signal SIGPWR, Power fail/restart.

Program received signal SIGXCPU, CPU time limit exceeded.

Program received signal SIGXCPU, CPU time limit exceeded.

Program received signal SIGXCPU, CPU time limit exceeded.

Program received signal SIGXCPU, CPU time limit exceeded.

Program received signal SIGXCPU, CPU time limit exceeded.

Program received signal SIGXCPU, CPU time limit exceeded.

Program received signal SIGXCPU, CPU time limit exceeded.

Program received signal SIGXCPU, CPU time limit exceeded.
scheme@(guile-user)> (gc)

Program received signal SIGPWR, Power fail/restart.

Program received signal SIGPWR, Power fail/restart.

Program received signal SIGPWR, Power fail/restart.

Program received signal SIGPWR, Power fail/restart.

Program received signal SIGPWR, Power fail/restart.

Program received signal SIGPWR, Power fail/restart.

Program received signal SIGPWR, Power fail/restart.

Program received signal SIGPWR, Power fail/restart.

Program received signal SIGSEGV, Segmentation fault.
[Switching to Thread 0x7ffff502b710 (LWP 24849)]
0x00007ffff7b0bc64 in smob_mark (addr=0x1945fe0,
mark_stack_ptr=0x7ffff501b1d0, mark_stack_limit=0x7ffff502aea0,
env=<value optimized out>) at smob.c:506
506	      SCM_I_CURRENT_THREAD->current_mark_stack_ptr = mark_stack_ptr;
(gdb)

- -- 
Luca Saiu
http://www-lipn.univ-paris13.fr/~saiu
GNU epsilon: http://www.gnu.org/software/epsilon
Marionnet:   http://www.marionnet.org
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org/

iEYEARECAAYFAk1abLUACgkQvzOavibF0oaijwCgncb/S3fjw28PjgwiC+1LrfmK
lYIAnRksHfpTGzuT0g+Xy1qwZopIVzWt
=UtD7
-----END PGP SIGNATURE-----