[Gcl-devel] Fedora Sparc build problem

[Jerry James]

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/