[Top][All Lists]
[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Gcl-devel] Re: big in *split-files*,
Camm Maguire <=