[Gcl-devel] Re: 2.7.0 build fails with value stack overflow

[Camm Maguire]

Greetings!  OK, this should be fixed now.  GCL makes proxy symbols to
carry the alternate functions linked to the '(setf foo) function
identifier, and these must not be allowed into the portable source for
recompilation.  This is prevented now in an ad-hoc manner -- it would
be great someday to add another slot into the C symbol struct for this
purpose, and to rationalize better which macros should be skipped when
generating portable source.

take care,

Robert Boyer <address@hidden> writes:

> My build of a fresh 2.7.0 now fails in this new way.
> 
> Bob
> 
> -------------------------------------------------------------------------------
> 
> >gcc -c -I/lusr/X11/include -fsigned-char -pipe -Wall  -O3 
> >-fomit-frame-pointer  -I/u/boyer/my-partition/gcl-2.7.0/o -I../o -I../h 
> >-I/lusr/lib/../include -I/lusr/lib/../include -I/lusr/X11R6/include   guis.c
> gcc -c -I/lusr/X11/include -fsigned-char -pipe -Wall  -O3 
> -fomit-frame-pointer  -I/u/boyer/my-partition/gcl-2.7.0/o -I../o -I../h 
> -I/lusr/lib/../include -I/lusr/lib/../include -I/lusr/X11R6/include   
> tkAppInit.c
> gcc -c -I/lusr/X11/include -fsigned-char -pipe -Wall  -O3 
> -fomit-frame-pointer  -I/u/boyer/my-partition/gcl-2.7.0/o -I../o -I../h 
> -I/lusr/lib/../include -I/lusr/lib/../include -I/lusr/X11R6/include   tkMain.c
> gcc guis.o tkAppInit.o tkMain.o -o gcltkaux  -L/lusr/lib -ltk8.3 
> -L/v/antivenin/v1/CVSBUILD/tk_tcl/tk/unix -ltk8.3 -L/lusr/X11R6/lib -lX11 
> -I/lusr/X11R6/include -L/lusr/lib -ltcl8.3 -ldl  -lm  -Wl,-zmuldefs   -lm 
> ../o/gcllib.a
> (cd demos ; \
>       echo '(load "../tkl.o")(TK::GET-AUTOLOADS (directory "*.lisp"))' | 
> ../../unixport/saved_ansi_gcl ) 
> GCL (GNU Common Lisp)  2.7.0 ANSI    Oct 20 2006 09:47:42
> Source License: LGPL(gcl,gmp,pargcl), GPL(unexec,bfd,xgcl)
> Binary License:  GPL due to GPL'ed components: (BFD UNEXEC)
> Modifications of this banner must retain notice of a compatible license
> Dedicated to the memory of W. Schelter
> 
> Use (help) to get some basic information on how to use GCL.
> 
> Temporary directory for compiler files set to /tmp/
> 
> >
> Loading ../tkl.o
> Callee CALL-WITH-RESULT-TYPE sigchange ((*) *) to ((T T)
>                                                    (SYSTEM::RETURNS-EXACTLY
>                                                     T T)), recompiling 
> CONTROL-FUNCTION
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling SELECTION
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling TKERROR
> Callee TKERROR sigchange ((*) *) to ((*) (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling INFO-ERROR
> Callee SLOOP::LOOP-PARSE-ADDITIONAL-COLLECTIONS sigchange ((T T T)
>                                                            
> SYSTEM:PROPER-LIST) to ((T
>                                                                               
>       T
>                                                                               
>       T)
>                                                                               
>      T), recompiling SLOOP::PARSE-LOOP-COLLECT
> Callee PRINT-TO-STRING sigchange NIL to ((T T T) T), recompiling PRINT-ARGLIST
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling UPDATE
> Callee SEND-TCL-CMD sigchange ((*) *) to ((T T T) *), recompiling 
> CALL-WITH-RESULT-TYPE
> Callee PRINT-TO-STRING sigchange NIL to ((T T T) T), recompiling TK-DO
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling TK-LISTBOX-SINGLE-SELECT
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling TK-MENU-BAR
> Callee COERCE-STRING sigchange NIL to ((T) T), recompiling MY-CONC
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling TK-DIALOG
> Callee WRITE-TO-CONNECTION sigchange ((*) *) to ((T T) (MEMBER T)), 
> recompiling SEND-TCL-CMD
> Callee SEND-TCL-CMD sigchange ((*) *) to ((T T T) *), recompiling 
> MAKE-WIDGET-INSTANCE
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling GET_TAG_RANGE
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling LSEARCH
> Callee GET-PER-CENT-SYMBOLS sigchange NIL to ((T) T), recompiling 
> TCL-CREATE-COMMAND
> Callee TCL-CREATE-COMMAND sigchange ((*) *) to ((T T T)
>                                                 (OR (CONS T T)
>                                                  (ARRAY CHARACTER (*)))), 
> recompiling PRESCAN-COMMAND
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling LINDEX
> Callee PRINT-TO-STRING sigchange NIL to ((T T T) T), recompiling TK-CONC
> Callee TK-CONC sigchange NIL to ((*) (ARRAY CHARACTER (30))), recompiling 
> TK-WAIT-TIL-EXISTS
> Callee DFORMAT1 sigchange NIL to ((*) T), recompiling READ-AND-ACT
> Callee DESCRIBE-MESSAGE sigchange ((*) *) to ((T) T), recompiling 
> WRITE-TO-CONNECTION
> Callee WRITE-TO-CONNECTION sigchange ((*) *) to ((T T) (MEMBER T)), 
> recompiling EXECUTE-TCL-CMD
> Callee DFORMAT1 sigchange NIL to ((*) T), recompiling SYSTEM:SIGUSR1-INTERRUPT
> Callee DFORMAT1 sigchange NIL to ((*) T), recompiling SYSTEM:SIGIO-INTERRUPT
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling WINFO
> Callee GET-CIRCLE sigchange ((T (INTEGER -2147483648 2147483647)) T) to 
> (((ARRAY
>                                                                            T
>                                                                            *)
>                                                                           
> FIXNUM)
>                                                                          T), 
> recompiling DECODE-RESPONSE
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling OPTION
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling SEND
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling TK
> Callee GET-CIRCLE sigchange ((T (INTEGER -2147483648 2147483647)) T) to 
> (((ARRAY
>                                                                            T
>                                                                            *)
>                                                                           
> FIXNUM)
>                                                                          T), 
> recompiling DESCRIBE-MESSAGE
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling WM
> Callee PUSH-NUMBER-STRING sigchange ((T
>                                       (INTEGER -2147483648 2147483647)
>                                       (INTEGER -2147483648 2147483647)
>                                       (INTEGER -2147483648 2147483647))
>                                      (INTEGER -2147483648 2147483647)) to 
> ((STRING
>                                                                             
> FIXNUM
>                                                                             
> FIXNUM
>                                                                             
> FIXNUM)
>                                                                            
> NULL), recompiling SET-MESSAGE-HEADER
> Callee WRITE-TO-CONNECTION sigchange ((*) *) to ((T T) (MEMBER T)), 
> recompiling CLEAR-TK-CONNECTION
> Callee DESCRIBE-MESSAGE sigchange ((*) *) to ((T) T), recompiling 
> READ-MESSAGE-BODY
> Callee READ-MESSAGE-BODY sigchange ((*) *) to ((T T T) T), recompiling 
> READ-TK-MESSAGE
> Callee PCL::UPDATE-SLOTS sigchange ((T T) NULL) to ((T T) T), recompiling 
> PCL::UPDATE-CLASS
> Callee PRINT-ARGLIST sigchange NIL to ((T T) NULL), recompiling TK-CALL
> Callee TKDISCONNECT sigchange ((*) *) to (NIL T), recompiling QUIT
> Callee WRITE-TO-CONNECTION sigchange ((*) *) to ((T T) (MEMBER T)), 
> recompiling SEND-TCL-CREATE-COMMAND
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling PLACE
> Callee MAKE-WIDGET-INSTANCE sigchange NIL to ((T T) T), recompiling 
> WIDGET-FUNCTION
> Callee OUR-READ-FROM-STRING sigchange ((*) *) to ((T T) T), recompiling ATOI
> Callee TCL-CREATE-COMMAND sigchange ((*) *) to ((T T T)
>                                                 (OR (CONS T T)
>                                                  (ARRAY CHARACTER (*)))), 
> recompiling PRESCAN-BIND
> Callee WM sigchange NIL to ((*) (SYSTEM::RETURNS-EXACTLY T T)), recompiling 
> DPOS
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling AFTER
> Callee PRINT-TO-STRING sigchange NIL to ((T T T) T), recompiling STRING-LIST1
> Callee STRING-LIST1 sigchange ((*) *) to ((T T) NULL), recompiling STRING-LIST
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling FOCUS
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling RAISE
> Callee TK-CONC sigchange NIL to ((*) (ARRAY CHARACTER (30))), recompiling 
> COERCE-RESULT
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling DESTROY
> Callee WRITE-TO-CONNECTION sigchange ((*) *) to ((T T) (MEMBER T)), 
> recompiling NOTICE-TEXT-VARIABLES
> Callee WRITE-TO-CONNECTION sigchange ((*) *) to ((T T) (MEMBER T)), 
> recompiling LINK-VARIABLE
> Callee WRITE-TO-CONNECTION sigchange ((*) *) to ((T T) (MEMBER T)), 
> recompiling UNLINK-VARIABLE
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling EXIT
> Callee GRAB-TK-COMMAND sigchange NIL to (NIL T), recompiling TK-DO-NO-WAIT
> Callee SEND-TCL-CMD sigchange ((*) *) to ((T T T) *), recompiling BIND
> Callee PRINT-TO-STRING sigchange NIL to ((T T T) T), recompiling 
> LIST-TO-STRING
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling TKVARS
> Callee TK-DO sigchange NIL to ((T *) *), recompiling TKCONNECT
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling GRAB
> Callee WINFO sigchange NIL to ((*) (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling CHILDREN
> Callee COMPILER::WT-VAR sigchange ((T T) NULL) to ((T T) T), recompiling 
> COMPILER::INLINE-ARGS
> Callee OUR-READ-FROM-STRING sigchange ((*) *) to ((T T) T), recompiling NTH-A
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling TKWAIT
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling PACK
> Callee CONTROL-FUNCTION sigchange NIL to ((T T)
>                                           (SYSTEM::RETURNS-EXACTLY T T)), 
> recompiling LOWER
> Callee GET-FILE-AUTOLOADS sigchange ((*) *) to ((T *) T), recompiling 
> GET-AUTOLOADS
> Callee PCL::MAKE-CHECKING-DFUN sigchange ((T T *)
>                                           (VALUES T T
>                                            (OR
>                                             (OR
>                                              PCL::DEFAULT-METHOD-ONLY
>                                              PCL::CHECKING PCL::CACHING
>                                              PCL::CONSTANT-VALUE
>                                              PCL::DISPATCH)
>                                             (MEMBER NIL)))) to ((T T *)
>                                                                 *), 
> recompiling PCL::MAKE-FINAL-CHECKING-DFUN
> ;; Compiling /tmp/gazonk_30824_3tV6VL.lsp.
> 
> Unrecoverable error: value stack overflow.
> /bin/sh: line 1: 30823 Done                    echo '(load 
> "../tkl.o")(TK::GET-AUTOLOADS (directory "*.lisp"))'
>      30824 Aborted                 | ../../unixport/saved_ansi_gcl
> make[1]: *** [all] Error 134
> make[1]: Leaving directory `/v/filer3/v0q027/gcl-2.7.0/gcl-tk'
> make: *** [do-gcl-tk] Error 2
> 
> 
> 

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