Fedora Sparc build problem

[Jerry James-3]

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

[Jerry James-3]

On Wed, Aug 12, 2009 at 12:00 PM, Jerry James<loganjerry@...> wrote:
> At this point, type_of(name) == t_structure.  However, narg is 9, but
> S_DATA(name)->length is 0.

I figured out how to tease out the name of the structure causing the
problem.  It is LOOP-UNIVERSE.  So the 9 appears to be correct.
--
Jerry James
http://www.jamezone.org/


_______________________________________________
Gcl-devel mailing list
Gcl-devel@...
http://lists.gnu.org/mailman/listinfo/gcl-devel

[Camm Maguire-2]

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

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


_______________________________________________
Gcl-devel mailing list
Gcl-devel@...
http://lists.gnu.org/mailman/listinfo/gcl-devel

[Jerry James-3]

On Sun, Aug 16, 2009 at 8:29 AM, Camm Maguire<camm@...> wrote:
> 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.

I would be very happy if you could take a look.  I'll see if remote
access for you can be arranged.  Thanks!
--
Jerry James
http://www.jamezone.org/


_______________________________________________
Gcl-devel mailing list
Gcl-devel@...
http://lists.gnu.org/mailman/listinfo/gcl-devel

[Camm Maguire-2]

Greetings!  OK I'm back, and my ssh key is:

=============================================================================
ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAIEAtseLLbrS7utxoresgHYJtfUCLckotAcc6SfOqjg1MVrV77GNSuNfR+6iX7ahLDnbNtGzauDJM+8/H0hx2dM0+UMy92betwF+2TYjHfSucsoWhb2kSNUwIFiq714NdSa1vdcEEV/jLQ2v4fDCMew9X2NnzAxovCTSEcRCmMEenaU= camm@wisdom
=============================================================================

Take care,

Jerry James <loganjerry@...> writes:

> On Sun, Aug 16, 2009 at 8:29 AM, Camm Maguire<camm@...> wrote:
>> 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.
>
> I would be very happy if you could take a look.  I'll see if remote
> access for you can be arranged.  Thanks!
> --
> Jerry James
> http://www.jamezone.org/
>
>
>
>

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


_______________________________________________
Gcl-devel mailing list
Gcl-devel@...
http://lists.gnu.org/mailman/listinfo/gcl-devel