[Gcl-devel] GCC 4.8.0 problem

[Jerry James]

Fedora Rawhide has moved to what will soon be GCC 4.8.0.  GCL now
fails to build properly on i386, although it still builds properly on
x86_64.  The build reaches this point:

echo '(load "sys-package.lisp")' '(setq *features* (delete (quote
:kcl) *features*))' '(load "defsys.lisp")(push (quote :kcl)
*features*)' '(setq pcl::*default-pathname-extensions* (cons "lisp"
"o"))' '(setq pcl::*pathname-extensions* (cons "lisp" "o"))' '(load
"sys-proclaim.lisp")' '(setq compiler::*default-h-file* t)' '(setq
compiler::*default-c-file* t)' '(setq compiler::*default-data-file*
t)' '(setq compiler::*default-system-p* t)' '(setq
compiler::*keep-gaz* t compiler::*tmp-dir* "")' '(pcl::compile-pcl)' |
../unixport/saved_gcl

which fails like so:

Compiling GCL_PCL_WALK...
Compiling /builddir/build/BUILD/gcl-2.6.8/unixport/../pcl/gcl_pcl_walk.lisp.
End of Pass 1.
;; Note: Tail-recursive call of WALK-TEMPLATE was replaced by iteration.
;; Note: Tail-recursive call of WALK-TEMPLATE was replaced by iteration.
;; Note: Tail-recursive call of WALK-TEMPLATE-HANDLE-REPEAT-1 was
replaced by iteration.
Error: Caught fatal error [memory may be damaged]
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by COMPILE-FILE.
Broken at SYSTEM:HASH-EQUAL.  Type :H for Help.
WALKER>>make[1]: *** [gcl_pcl_boot.c] Error 255

A little debugging shows that Cnil_body is being overwritten by the
loop at print.d, line 672.  Here is the backtrace at the time when
Cnil_body is clobbered:

#0  write_object (address@hidden <small_fixnum_table+68068>,
    address@hidden) at print.d:672
#1  0x08068eff in princ (address@hidden <small_fixnum_table+68068>,
    strm=0x8f207e0) at print.d:1924
#2  0x081d881c in LI2 (V10=0x84ac124 <small_fixnum_table+68068>)
    at gcl_cmpwt.c:75
#3  0x081ab8e1 in LI16 (V207=<optimized out>, V208=0x8ef6804, V209=0x8ef7048)
    at gcl_cmpif.c:1521
#4  0x0809f488 in quick_call_sfun (fun=<optimized out>, fun=<optimized out>)
    at eval.c:117
#5  0x081b4fa1 in L16 () at gcl_cmpeval.c:1239
#6  0x081b4fa1 in L16 () at gcl_cmpeval.c:1239
#7  0x081d34c4 in LI27 (V350=0x8e1c9b4,
    V351=0x84a8d58 <small_fixnum_table+54808>, V352=0x8ef9f48,
    V353=0x8499660 <Cnil_body>, V354=0x8ef9eb8) at gcl_cmptop.c:2474
#8  0x0809f4de in quick_call_sfun (fun=<optimized out>, fun=<optimized out>)
    at eval.c:117
#9  0x081d4559 in L26 () at gcl_cmptop.c:2292
#10 0x081d484f in LI25 (V330=0x8e1c9b4,
    V331=0x84a8d58 <small_fixnum_table+54808>, V332=0x8ef9f48,
    V333=0x8499660 <Cnil_body>, V334=0x8499660 <Cnil_body>)
    at gcl_cmptop.c:2213
#11 0x0809f4de in quick_call_sfun (fun=<optimized out>, fun=<optimized out>)
    at eval.c:117
#12 0x081d55d9 in LI7 (address@hidden) at gcl_cmptop.c:647
#13 0x080bd745 in call_proc_new (sym=0x8d97654,
    address@hidden <LnkLI257>, address@hidden,
    address@hidden,
    address@hidden "\340\a\362\bxi\331\bh\232\362\b\004")
    at funlink.c:777
#14 0x081b94f1 in LnkTLI257 (first=0x8f29a80) at gcl_cmpmain.c:3190
#15 0x081bbfe2 in LI12 (address@hidden, V121=0x86392bc,
    V122=0x8624240 <Ct_body>) at gcl_cmpmain.c:1958
#16 0x080bd77b in call_proc_new (sym=0x8d99828,
    address@hidden <LnkLI240>, address@hidden,
    address@hidden,
    ll=0xffffc83c
"DT\337\b`\226I\b\350\256\324\bĮ\324\b\240\256\324\b|\256\324\b\270\230\331\bX\256\324\b$\020c\b\224\230\331\b\240\a\032\b\240\345K\bz\322\v\b\324\345K\b\224\346K\b`\226I\b`\226I\b`\226I\bd\223c\bh\222c\bDT\337\bh\207\343\b`\226I\bx\377b\b`Zc\b\020\005\331\b<\313&\b",
    address@hidden
"address@hidden|\256\324\b\270\230\331\bX\256\324\b$\020c\b\224\230\331\b\240\a\032\b\240\345K\bz\322\v\b\324\345K\b\224\346K\b`\226I\b`\226I\b`\226I\bd\223c\bh\222c\bDT\337\bh\207\343\b`\226I\bx\377b\b`Zc\b\020\005\331\b<\313&\b")
    at funlink.c:784
#17 0x081b9671 in LnkTLI240 (first=0x8639310) at gcl_cmpmain.c:3209
#18 0x081bf1ff in L5 () at gcl_cmpmain.c:1008
#19 0x081b9999 in LnkT216 () at gcl_cmpmain.c:3231
#20 0x081c0982 in LI4 (first=0x8639770) at gcl_cmpmain.c:280
#21 0x0809ef8e in call_vfun (fun=<optimized out>) at eval.c:150
#22 0x0809fdce in eval (form=<optimized out>) at eval.c:1092
#23 0x080a4c02 in Funless (form=0x8dde450) at conditional.c:185
#24 0x0809fb06 in eval (form=<optimized out>) at eval.c:1037
#25 0x080a00d9 in funcall (fun=<optimized out>) at eval.c:327
#26 0x0809fdce in eval (form=<optimized out>) at eval.c:1092
#27 0x0809c49e in Fprogn (body=0x8dc8ce4) at prog.c:248
#28 0x0809fb06 in eval (form=<optimized out>) at eval.c:1037
#29 0x0809fb06 in eval (form=<optimized out>) at eval.c:1037
#30 0x0809c49e in Fprogn (body=0x8df74c8) at prog.c:248
#31 0x0809ec04 in Flet (form=<optimized out>) at let.c:82
#32 0x0809fb06 in eval (form=<optimized out>) at eval.c:1037
#33 0x0809c49e in Fprogn (body=0x8df7480) at prog.c:248
#34 0x0809ec04 in Flet (form=<optimized out>) at let.c:82
#35 0x0809fb06 in eval (form=<optimized out>) at eval.c:1037
#36 0x0809c49e in Fprogn (body=0x8dc8c6c) at prog.c:248
#37 0x0809fb06 in eval (form=<optimized out>) at eval.c:1037
#38 0x0809c35d in Ftagbody (body=0x8dfa060) at prog.c:95
#39 0x0809fb06 in eval (form=<optimized out>) at eval.c:1037
#40 0x080a6fde in Fblock (args=0x8df9ff0) at block.c:58
#41 0x0809fb06 in eval (form=<optimized out>) at eval.c:1037
#42 0x0809c49e in Fprogn (body=0x8dc8c60) at prog.c:248
#43 0x0809fb06 in eval (form=<optimized out>) at eval.c:1037
#44 0x0809c49e in Fprogn (body=0x8dc8c54) at prog.c:248
#45 0x0809dbf1 in Flabels (args=0x8dde42c) at let.c:275
#46 0x0809fb06 in eval (form=<optimized out>) at eval.c:1037
#47 0x0809c49e in Fprogn (body=0x8dc8c48) at prog.c:248
#48 0x0809ea94 in FletA (form=<optimized out>) at let.c:110
#49 0x0809fb06 in eval (form=<optimized out>) at eval.c:1037
#50 0x0809c49e in Fprogn (body=0x8dc8c3c) at prog.c:248
#51 0x0809ec04 in Flet (form=<optimized out>) at let.c:82
#52 0x0809fb06 in eval (form=<optimized out>) at eval.c:1037
#53 0x080a00d9 in funcall (fun=<optimized out>) at eval.c:327
#54 0x0809fdce in eval (form=<optimized out>) at eval.c:1092
#55 0x080a506d in Fcond (args=<optimized out>) at conditional.c:79
#56 0x0809fb06 in eval (form=<optimized out>) at eval.c:1037
#57 0x0809c49e in Fprogn (body=0x8e4dbf4) at prog.c:248
#58 0x0809ec04 in Flet (form=<optimized out>) at let.c:82
#59 0x0809fb06 in eval (form=<optimized out>) at eval.c:1037
#60 0x080a00d9 in funcall (fun=<optimized out>) at eval.c:327
#61 0x0809fdce in eval (form=<optimized out>, address@hidden)
    at eval.c:1092
#62 0x080a1a05 in fLeval (x0=0x8dfc03c) at eval.c:1178
#63 0x0806ab73 in IapplyVector (address@hidden, nargs=1,
    base=0x84be4a8 <value_stack+104>, address@hidden <value_stack+100>)
    at nfunlink.c:229
#64 0x080a0298 in funcall (fun=0x862ee24) at eval.c:190
#65 0x080a0f41 in symlispcall (sym=0x862ee24,
    base=0x84be4a4 <value_stack+100>, address@hidden) at eval.c:507
#66 0x0812013a in LI1 () at gcl_top.c:140
#67 0x0809f5a5 in quick_call_sfun (fun=0x8d39fc8, fun=0x8d39fc8) at eval.c:117
#68 0x080a0219 in funcall (address@hidden) at eval.c:178
#69 0x0806ac22 in IapplyVector (address@hidden, address@hidden,
    base=0x84be47c <value_stack+60>, address@hidden) at nfunlink.c:239
#70 0x0809f13b in fLfuncall (fun=0x8d39fc8) at eval.c:1140
#71 0x0806ab73 in IapplyVector (address@hidden, nargs=1,
    base=0x84be478 <value_stack+56>, address@hidden <value_stack+52>)
    at nfunlink.c:229
#72 0x080a0298 in funcall (fun=0x862ee4c) at eval.c:190
#73 0x0809fdce in eval (form=<optimized out>) at eval.c:1092
#74 0x080a00d9 in funcall (fun=<optimized out>) at eval.c:327
#75 0x0809fdce in eval (form=<optimized out>) at eval.c:1092
#76 0x080a00d9 in funcall (fun=<optimized out>) at eval.c:327
#77 0x08050d9d in main (argc=1, argv=0xffffd7a4, envp=0xffffd7ac) at main.c:363

Any suggestions on how to debug this further are greatly appreciated.
--
Jerry James
http://www.jamezone.org/