With the PLT patch I sent recently, the build for Fedora Linux on
Sparc gets off the ground. However, it doesn't complete. Here is the
last (relevant) bit of the build log:
------------------------------------------------------------------------------
/builddir/build/BUILD/gcl-2.6.8/unixport/raw_pre_gcl
/builddir/build/BUILD/gcl-2.6.8/unixport/ -libdir
/builddir/build/BUILD/gcl-2.6.8/ < foo
GCL (GNU Common Lisp) April 1994 131072 pages
Building symbol table for
/builddir/build/BUILD/gcl-2.6.8/unixport/raw_pre_gcl ..
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_export.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_defmacro.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_evalmacros.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_top.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_module.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_autoload.lsp
>
#<"COMPILER" package>
>
#<"SLOOP" package>
>
#<"SERROR" package>
>
#<"ANSI-LOOP" package>
>
#<"DEFPACKAGE" package>
>
#<"TK" package>
>
#<"SYSTEM" package>
SYSTEM>
*COMMAND-ARGS*
SYSTEM>loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_listlib.lsp
Warning: NTHCDR is being redefined.
Warning: NTH is being redefined.
Warning: FIRST is being redefined.
Warning: SECOND is being redefined.
Warning: THIRD is being redefined.
Warning: FOURTH is being redefined.
Warning: FIFTH is being redefined.
Warning: SIXTH is being redefined.
Warning: SEVENTH is being redefined.
Warning: EIGHTH is being redefined.
Warning: NINTH is being redefined.
Warning: TENTH is being redefined.loading
/builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_predlib.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_setf.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_arraylib.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_assert.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_defstruct.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_describe.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_iolib.lsp
Warning: WRITE-BYTE is being redefined.
Warning: READ-BYTE is being redefined.loading
/builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_mislib.lsp
Warning: LISP-IMPLEMENTATION-VERSION is being redefined.loading
/builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_numlib.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_packlib.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_seq.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_seqlib.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_trace.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_sloop.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_serror.lsp
loading
/builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_destructuring_bind.lsp
loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_loop.lsp
Error handler called recursively (:ERROR
NIL
SERROR::MAKE-ERROR-CONDITION
""
"Bad make_structure args for type ~a"
SERROR::ERROR-CONDITION)
Error: Bad make_structure args for type ERROR-CONDITION
Error signalled by SERROR::MAKE-ERROR-CONDITION.
Broken at COND. Type :H for Help.
ANSI-LOOP>>
#<"USER" package>
------------------------------------------------------------------------------
I ran it in GDB, with a breakpoint set on FEerror. The backtrace is
51 frames long. I'll just give the last half:
------------------------------------------------------------------------------
#0 FEerror (s=0x206e28 "Bad make_structure args for type ~a", num=1)
at error.c:268
#1 0x000000000012fc78 in siLmake_structure () at structure.c:194
#2 0x00000000001586b4 in eval (form=<value optimized out>) at eval.c:1090
#3 0x0000000000155e14 in funcall (fun=<value optimized out>) at eval.c:327
#4 0x0000000000158614 in eval (form=<value optimized out>) at eval.c:1092
#5 0x000000000011b5e0 in Fprogn (body=0xfb1ea8) at prog.c:248
#6 0x000000000017cf38 in Fflet (args=0x774808) at let.c:234
#7 0x00000000001581fc in eval (form=0xfaec60) at eval.c:1037
#8 0x0000000000155e60 in funcall (fun=<value optimized out>) at eval.c:327
#9 0x0000000000158614 in eval (form=<value optimized out>) at eval.c:1092
#10 0x0000000000149484 in let_bind (body=<value optimized out>,
start=0x7904a8, end=0x7904c8) at bind.c:679
#11 0x000000000017dacc in Flet (form=0x1042a98) at let.c:78
#12 0x00000000001581fc in eval (form=0x1041080) at eval.c:1037
#13 0x0000000000155e14 in funcall (fun=<value optimized out>) at eval.c:327
#14 0x0000000000158614 in eval (form=<value optimized out>) at eval.c:1092
#15 0x000000000015896c in Ieval (form=0x1045c68) at eval.c:928
#16 0x00000000001469b4 in Fsetq (form=0x10459e0) at assignment.c:100
#17 0x00000000001581fc in eval (form=0x10459c8) at eval.c:1037
#18 0x000000000011b5e0 in Fprogn (body=0x1045968) at prog.c:248
#19 0x00000000001581fc in eval (form=0x1045938) at eval.c:1037
#20 0x000000000015875c in ieval (x=0x1045cb0) at eval.c:1278
#21 0x0000000000161438 in load (s=<value optimized out>) at file.d:1517
#22 0x0000000000138e8c in gcl_init_system (no_init=0xbbdd88)
at sys_pre_gcl.c:102
#23 0x0000000000104e3c in siLinit_system () at main.c:845
------------------------------------------------------------------------------
The code in frame #1 called FEerror here:
------------------------------------------------------------------------------
if (type_of(name)!=t_structure ||
(def=S_DATA(name))->length != --narg)
FEerror("Bad make_structure args for type ~a",1,
base[0]);
------------------------------------------------------------------------------
At this point, type_of(name) == t_structure. However, narg is 9, but
S_DATA(name)->length is 0.
I don't know this code well enough to know how to track down the
problem. Can anyone give me some tips on what I should look for?
Thanks,
--
Jerry James
http://www.jamezone.org/
_______________________________________________
Gcl-devel mailing list
Gcl-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/gcl-devel
