bug#50427: [core-updates-frozen] Guile 1.8.8 fails to build

[Ludovic Courtès]

Guile 1.8.8 (which has 16 dependents) fails to build on
‘core-updates-frozen’:

--8<---------------cut here---------------start------------->8---
cat alist.doc arbiters.doc async.doc backtrace.doc boolean.doc chars.doc 
continuations.doc debug.doc deprecation.doc deprecated.doc discouraged.doc 
dynl.doc dynwind.doc environments.doc eq.doc error.doc eval.doc evalext.doc 
extensions.doc feature.doc fluids.doc fports.doc futures.doc gc.doc goops.doc 
gsubr.doc gc-mark.doc gc-segment.doc gc-malloc.doc gc-card.doc guardians.doc 
hash.doc hashtab.doc hooks.doc i18n.doc init.doc ioext.doc keywords.doc 
lang.doc list.doc load.doc macros.doc mallocs.doc modules.doc numbers.doc 
objects.doc objprop.doc options.doc pairs.doc ports.doc print.doc procprop.doc 
procs.doc properties.doc random.doc rdelim.doc read.doc root.doc rw.doc 
scmsigs.doc script.doc simpos.doc smob.doc sort.doc srcprop.doc stackchk.doc 
stacks.doc stime.doc strings.doc srfi-4.doc srfi-13.doc srfi-14.doc 
strorder.doc strports.doc struct.doc symbols.doc threads.doc throw.doc 
values.doc variable.doc vectors.doc version.doc vports.doc weaks.doc ramap.doc 
unif.doc dynl.doc filesys.doc posix.doc net_db.doc socket.doc regex-posix.doc | 
GUILE="/tmp/guix-build-guile-1.8.8.drv-0/guile-1.8.8/pre-inst-guile" 
../scripts/snarf-check-and-output-texi          > guile-procedures.texi || { rm 
guile-procedures.texi; false; }
/gnu/store/kq6p23qdfk0m3r6wf3c494kwnzv1vw8c-bash-minimal-5.1.8/bin/bash: line 
1: 13557 Broken pipe             cat alist.doc arbiters.doc async.doc 
backtrace.doc boolean.doc chars.doc continuations.doc debug.doc deprecation.doc 
deprecated.doc discouraged.doc dynl.doc dynwind.doc environments.doc eq.doc 
error.doc eval.doc evalext.doc extensions.doc feature.doc fluids.doc fports.doc 
futures.doc gc.doc goops.doc gsubr.doc gc-mark.doc gc-segment.doc gc-malloc.doc 
gc-card.doc guardians.doc hash.doc hashtab.doc hooks.doc i18n.doc init.doc 
ioext.doc keywords.doc lang.doc list.doc load.doc macros.doc mallocs.doc 
modules.doc numbers.doc objects.doc objprop.doc options.doc pairs.doc ports.doc 
print.doc procprop.doc procs.doc properties.doc random.doc rdelim.doc read.doc 
root.doc rw.doc scmsigs.doc script.doc simpos.doc smob.doc sort.doc srcprop.doc 
stackchk.doc stacks.doc stime.doc strings.doc srfi-4.doc srfi-13.doc 
srfi-14.doc strorder.doc strports.doc struct.doc symbols.doc threads.doc 
throw.doc values.doc variable.doc vectors.doc version.doc vports.doc weaks.doc 
ramap.doc unif.doc dynl.doc filesys.doc posix.doc net_db.doc socket.doc 
regex-posix.doc
     13558 Segmentation fault      | 
GUILE="/tmp/guix-build-guile-1.8.8.drv-0/guile-1.8.8/pre-inst-guile" 
../scripts/snarf-check-and-output-texi > guile-procedures.texi
make[3]: *** [Makefile:2175: guile-procedures.texi] Error 1
make[3]: Leaving directory 
'/tmp/guix-build-guile-1.8.8.drv-0/guile-1.8.8/libguile'
make[2]: *** [Makefile:550: all] Error 2
--8<---------------cut here---------------end--------------->8---

Funny thing is that the crash is in its GC:

--8<---------------cut here---------------start------------->8---
Core was generated by 
`/tmp/guix-build-guile-1.8.8.drv-0/guile-1.8.8/libguile/.libs/guile -l 
../script'.
Program terminated with signal SIGSEGV, Segmentation fault.
#0  scm_mark_locations (x=0x7ffcacc396c8, n=18446744073709551554) at 
gc-mark.c:435
435           SCM obj = * (SCM *) &x[m];
(gdb) bt
#0  scm_mark_locations (x=0x7ffcacc396c8, n=18446744073709551554) at 
gc-mark.c:435
#1  0x00007f3f1efb779d in scm_threads_mark_stacks () at threads.c:1408
#2  0x00007f3f1ef6ffb8 in scm_mark_all () at gc-mark.c:82
#3  0x00007f3f1ef6f8b1 in scm_i_gc (what=what@entry=0x7f3f1efd345f "cells") at 
gc.c:596
#4  0x00007f3f1ef6fab0 in scm_gc_for_newcell (freelist=0x7f3f1f006f80 
<scm_i_master_freelist2>, free_cells=0x1b8a350) at gc.c:507
#5  0x00007f3f1efa111c in scm_double_cell (cdr=0, ccr=0, cbr=0, car=393767) at 
../libguile/inline.h:201
#6  make_stringbuf (len=len@entry=6) at strings.c:116
#7  0x00007f3f1efa1b05 in scm_i_c_make_symbol (name=name@entry=0x7f3f1efd7791 
"caaddr", len=len@entry=6, flags=flags@entry=0, 
    hash=hash@entry=7051899415, props=0x7f3f1eab1fc0) at strings.c:433
#8  0x00007f3f1efb62ea in scm_i_c_mem2symbol (name=name@entry=0x7f3f1efd7791 
"caaddr", len=6) at symbols.c:150
#9  0x00007f3f1efb6715 in scm_from_locale_symbol (sym=sym@entry=0x7f3f1efd7791 
"caaddr") at symbols.c:388
#10 0x00007f3f1ef93a36 in scm_c_make_subr (name=0x7f3f1efd7791 "caaddr", 
type=type@entry=93, fcn=0xfa) at procs.c:69
#11 0x00007f3f1ef93ad7 in scm_c_define_subr (name=<optimized out>, 
type=type@entry=93, fcn=<optimized out>) at procs.c:80
#12 0x00007f3f1ef8d6f2 in scm_init_pairs () at pairs.c:197
#13 0x00007f3f1ef7d9f9 in scm_i_init_guile (base=base@entry=0x7ffcacc396c8) at 
init.c:485
#14 0x00007f3f1efb7482 in scm_i_init_thread_for_guile (parent=<optimized out>, 
base=0x7ffcacc396c8) at threads.c:590
#15 scm_i_init_thread_for_guile (base=0x7ffcacc396c8, parent=<optimized out>) 
at threads.c:573
#16 0x00007f3f1efb752b in scm_i_with_guile_and_parent 
(func=func@entry=0x7f3f1ef7d770 <invoke_main_func>, 
data=data@entry=0x7ffcacc396f0, 
    parent=<optimized out>) at threads.c:732
#17 0x00007f3f1efb757c in scm_with_guile (func=func@entry=0x7f3f1ef7d770 
<invoke_main_func>, data=data@entry=0x7ffcacc396f0) at threads.c:721
#18 0x00007f3f1ef7d895 in scm_boot_guile (argc=<optimized out>, argv=<optimized 
out>, main_func=main_func@entry=0x401150 <inner_main>, 
    closure=closure@entry=0x0) at init.c:350
#19 0x0000000000401060 in main (argc=<optimized out>, argv=<optimized out>) at 
guile.c:63
--8<---------------cut here---------------end--------------->8---

Ludo’.