gcl-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Gcl-devel] Re: big in *split-files*


From: Camm Maguire
Subject: [Gcl-devel] Re: big in *split-files*
Date: 10 Aug 2005 10:16:22 -0400
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2

Greetings!  I believe this is fixed now in cvs head.  Working on a t5
cleanup tag.

Take care,

Robert Boyer <address@hidden> writes:

> t4 still has the bug about *split-files* (the overwriting of a file being
> compiled)!!!!!!  This comes up trying to run the nqthm-1992 tests.  I'll
> just repeat the bug report from a month ago cause it is just the same
> problem, unchanged.
> 
> Bob
> 
> 
> -------------------------------------------------------------------------------
> 
> 
> >From boyer Sat Jul  9 17:02:05 -0500 2005
> To: address@hidden
> Subject: strange bug
> 
> Here is a strange bug report, a nasty interaction it seems between t3, gprof,
> compiler::*split-files*, and compile-file.
> 
> I give the very simple transcript below to reproduce the bug.
> 
> The file foo.lisp mentioned is a *very* long file made with the Emacs command
> 
>  (let ((cnt 0))
>   (while (< cnt 20000)
>     (insert (format "(defun foo%s (x) x)\n" cnt))
>     (setq cnt (+ 1 cnt))))
> 
> but I suspect it could be any long file.  Simply compiling that file,
> foo.lisp, overwrites it with garbage.  Not nice!
> 
> Bob
> 
> -------------------------------------------------------------------------------
> 
> % gcl-t3
> GCL (GNU Common Lisp)  2.7.0 CLtL1  profiling  Jul  9 2005 12:48:16
> 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* 200000)
> 
> 200000
> 
> >(trace compile-file)
> 
> Warning: COMPILE-FILE is being redefined.
> (COMPILE-FILE)
> 
> >(compile-file "foo.lisp")
> 
>   1> (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.
>     2> (COMPILE-FILE #P"gazonk0.lsp" :OUTPUT-FILE "foo.lisp")
> ;; 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 foo.lisp.
>     <2 (COMPILE-FILE #P"/v/filer2/boyer/nqthm-2nd/nqthm-1992/foo.lisp"
>            NIL NIL)
>   <1 (COMPILE-FILE #P"/v/filer2/boyer/nqthm-2nd/nqthm-1992/foo.lisp"
>          NIL NIL)
> #P"/v/filer2/boyer/nqthm-2nd/nqthm-1992/foo.lisp"
> NIL
> NIL
> 
> >% head foo.lisp
> ELF
> 
> I
> 
> 
> 
> 
> 
> 
> ─
> 
> 
> 

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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]