guile testsuite failure (gnutls 3.0.1 and later) and armel and mipsel

[Andreas Metzler]

Hello,

starting with version 3.0.1 (3.0.0 is ok) three guile tests segfault
on armel and mipsel:

-----------8X-------------------------------------------------------------
--- buildlog.gnutls28.3.0.0.armel       2011-10-16 17:48:04.000000000 +0200
+++ buildlog.gnutls28.3.0.1.armel       2011-10-16 17:48:07.000000000 +0200
[...]
@@ -4896,1204 +5697,30 @@ make[3]: Entering directory `/build-gnut
 /usr/bin/make  check-TESTS
 make[4]: Entering directory `/build-gnutls/guile/tests'
 PASS: anonymous-auth.scm
-
-Some deprecated features have been used.  Set the environment
-variable GUILE_WARN_DEPRECATED to "detailed" and rerun the
-program to get more information.  Set it to "no" to suppress
-this message.
-
-Some deprecated features have been used.  Set the environment
-variable GUILE_WARN_DEPRECATED to "detailed" and rerun the
-program to get more information.  Set it to "no" to suppress
-this message.
-PASS: session-record-port.scm
+/bin/bash: line 5: 10178 Segmentation fault      GUILE_AUTO_COMPILE=0 
../../guile/pre-inst-guile -L . ${dir}$tst
+FAIL: session-record-port.scm
 PASS: pkcs-import-export.scm
 PASS: errors.scm
 PASS: x509-certificates.scm
-
-Some deprecated features have been used.  Set the environment
-variable GUILE_WARN_DEPRECATED to "detailed" and rerun the
-program to get more information.  Set it to "no" to suppress
-this message.
-
-Some deprecated features have been used.  Set the environment
-variable GUILE_WARN_DEPRECATED to "detailed" and rerun the
-program to get more information.  Set it to "no" to suppress
-this message.
-PASS: x509-auth.scm
+/bin/bash: line 5: 10228 Segmentation fault      GUILE_AUTO_COMPILE=0 
../../guile/pre-inst-guile -L . ${dir}$tst
+FAIL: x509-auth.scm
 PASS: priorities.scm
 PASS: openpgp-keys.scm
 PASS: openpgp-keyring.scm
-PASS: openpgp-auth.scm
+/bin/bash: line 5: 10279 Segmentation fault      GUILE_AUTO_COMPILE=0 
../../guile/pre-inst-guile -L . ${dir}$tst
+FAIL: openpgp-auth.scm
 PASS: srp-base64.scm
-===================
-All 11 tests passed
-===================
+===================================
+3 of 11 tests failed
+Please report to address@hidden
+===================================
+make[4]: *** [check-TESTS] Error 1
 make[4]: Leaving directory `/build-gnutls/guile/tests'
-----------8X-------------------------------------------------------------

gdb does not look very helpful:

-----------8X-------------------------------------------------------------
(sid)address@hidden:~/GNUTLS/gnutls28-3.0.1/guile/tests$ env 
LD_PRELOAD=/lib/arm-linux-gnueabi/libpthread.so.0 
LD_LIBRARY_PATH=/home/ametzler/GNUTLS/gnutls28-3.0.1/guile/src/.libs:/home/ametzler/GNUTLS/gnutls28-3.0.1/lib/.libs
  GUILE_LOAD_PATH="/home/ametzler/GNUTLS/gnutls28-3.0.1/guile/modules" 
GUILE_AUTO_COMPILE=0 ~/x/usr/bin/guile -L . session-record-port.scm
Segmentation fault
(sid)address@hidden:~/GNUTLS/gnutls28-3.0.1/guile/tests$ env 
LD_PRELOAD=/lib/arm-linux-gnueabi/libpthread.so.0 
LD_LIBRARY_PATH=/home/ametzler/GNUTLS/gnutls28-3.0.1/guile/src/.libs:/home/ametzler/GNUTLS/gnutls28-3.0.1/lib/.libs
  GUILE_LOAD_PATH="/home/ametzler/GNUTLS/gnutls28-3.0.1/guile/modules" 
GUILE_AUTO_COMPILE=0 gdb --args ~/x/usr/bin/guile -L . session-record-port.scm
GNU gdb (GDB) 7.3-debian
Copyright (C) 2011 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 "arm-linux-gnueabi".
For bug reporting instructions, please see:
<http://www.gnu.org/software/gdb/bugs/>...
Reading symbols from /home/ametzler/x/usr/bin/guile...(no debugging symbols 
found)...done.
(gdb) run
Starting program: /home/ametzler/x/usr/bin/guile -L . session-record-port.scm
[Thread debugging using libthread_db enabled]

Program received signal SIGSEGV, Segmentation fault.
*__GI___libc_free (mem=0x1) at malloc.c:3709
3709    malloc.c: No such file or directory.
        in malloc.c
(gdb) bt
#0  *__GI___libc_free (mem=0x1) at malloc.c:3709
#1  0x400b59cc in scm_gc_free () from /usr/lib/libguile.so.17
#2  0x400d79cc in scm_remove_from_port_table () from /usr/lib/libguile.so.17
#3  0x400b5f28 in scm_i_sweep_card () from /usr/lib/libguile.so.17
#4  0x404248f0 in ?? ()
Cannot access memory at address 0x34
#5  0x404248f0 in ?? ()
Cannot access memory at address 0x34
Backtrace stopped: previous frame identical to this frame (corrupt stack?)
(gdb)
-----------8X-------------------------------------------------------------

(I have built both 3.0.0 and 3.0.1 with the same development
environment.)

cu andreas
-- 
`What a good friend you are to him, Dr. Maturin. His other friends are
so grateful to you.'
`I sew his ears on from time to time, sure'