[Gcl-devel] Re: compile-file bug in 2.7.0

[Camm Maguire]

Greetings, and thanks for the report!

This should be fixed now in cvs head.  to get the fix from
Version_2_7_0t1, just do 

export CVS_RSH=ssh
export CVSROOT=:ext:address@hidden:/cvsroot/gcl

cvs -z9 -q update -r HEAD cmpnew/gcl_cmpmain.lsp

BTW, on an older thread, here is what I get with t1:

=============================================================================
>(defun foo (x &optional y) (foo x y))

FOO

>(proclaim '(ftype (function (t *) t) foo))

NIL

>(compile 'foo)

Compiling ./gazonk0.lsp.
End of Pass 1.  
End of Pass 2.  
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, (Debug 
quality ignored)
Finished compiling ./gazonk0.lsp.
Loading ./gazonk0.o
start address -T 0x6bc310 Finished loading ./gazonk0.o
#<compiled-function FOO>
NIL
NIL

>(si::use-fast-links t)

NIL

>(foo 3)

Error: Control stack overflow.
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by EVAL.
Broken at FOO.  Type :H for Help.
>>:q

Top level.
>
=============================================================================

Take care,

Robert Boyer <address@hidden> writes:

> The feature compiler:*split-files* seems broken in 2.7.0.
> 
> Suppose foo.lisp is a monotonous, long file such as
> 
>    (defun foo1 () nil)
>    (defun foo2 () nil)
>    (defun foo3 () nil)
>    (defun foo4 () nil)
>    (defun foo5 () nil)
>    (defun foo6 () nil)
>    (defun foo7 () nil)
>    (defun foo8 () nil)
>    (defun foo9 () nil)
>    (defun foo10 () nil)
>    ...
>    (defun foo1000 () nil)
>    (defun foo1001 () nil)
>    (defun foo1002 () nil)
> 
> Then we easily get this error:
> 
> % /v/filer2/boyer/gcl/gcl-2.7.0/unixport/saved_gcl 
> GCL (GNU Common Lisp)  2.7.0 CLtL1    Jun 21 2005 07:50:35
> Source License: LGPL(gcl,gmp), GPL(unexec,bfd)
> 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.
> 
> >(setq compiler::*split-files* 10000)
> 
> 10000
> 
> >(compile-file "foo.lisp")
> 
> Compiling foo.lisp.
> End of Pass 1.  
> End of Pass 2.  
> OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> Finished compiling 0foo.o.
> Compiling foo.lisp.
> End of Pass 1.  
> End of Pass 2.  
> OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> Finished compiling 1foo.o.
> Compiling foo.lisp.
> End of Pass 1.  
> End of Pass 2.  
> OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> Finished compiling 2foo.o.
> 
> Error: File #P(:NAME "gazonk0" :TYPE ...) does not exist.
> Fast links are on: do (si::use-fast-links nil) for debugging
> Error signalled by TRUENAME.
> Broken at TRUENAME.  Type :H for Help.
> >>
> 
> 
> 
> 
> Bob
> 
> 
> P. S. This error occurred on elgin.cs.utexas.edu.  The gcl 2.7.0 was made
> this morning with
> 
>   ./configure  --disable-statsysbfd --enable-locbfd --enable-maxpage=262144 
> --enable-debug
>   make
> 
> 
> 

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