Re: [Gcl-devel] Fedora Sparc build problem

[Camm Maguire]

Greetings!  I'm away from home for another week, but I just wanted t
add this quickly -- I think the error handler was called recursively
from your output.  Please make sure you are looking at the topmost
call to the error handler.  Also -- if remote access to this machine
can be arranged, I'd be happy to take a look if you'd like.

Take care,

Jerry James <address@hidden> writes:

> 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
> address@hidden
> http://lists.gnu.org/mailman/listinfo/gcl-devel
>
>
>
>

-- 
Camm Maguire                                        address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah