Hi,

GCL 2.7.0 compiled from CVS on Linux/AMD64 is not able to compile the
code shown below, with an error during C compilation. Looking at the
generated C code, it seems that the generation of C identifiers is
buggy.

,---- arr7.lsp
| (defun bench-string-concat (&optional (size 1000000) (runs 100))
|   (declare (fixnum size))
|   (dotimes (runs runs)
|     (let ((len (length
|                 (with-output-to-string (string)
|                   (dotimes (i size)
|                     (write-sequence "hi there!" string))))))
|       (assert (eql len (* size (length "hi there!")))))
|     (values)))
`----

,----
| > (compile-file "/tmp/arr7")
| ;; Compiling /tmp/arr7.lsp.
| ;; End of Pass 1.  
| ;; End of Pass 2.  
| /tmp/arr7.c: In function ‘LI1’:
| /tmp/arr7.c:6494: error: ‘V23’ undeclared (first use in this function)
| /tmp/arr7.c:6494: error: (Each undeclared identifier is reported only once
| /tmp/arr7.c:6494: error: for each function it appears in.)
| /tmp/arr7.c:6650: error: ‘V51’ undeclared (first use in this function)
| 
| Correctable error: 
| Fast links are on: do (si::use-fast-links nil) for debugging
| Signalled by COMPILE-FILE.
| If continued: Continues anyway.
| SIMPLE-ERROR: (SYSTEM "gcc -c -fsigned-char -pipe -Wall   
-I/usr/local/lib/gcl-2.7.0/unixport/../h  -Os -fomit-frame-pointer -c 
/tmp/arr7.c -o /tmp/arr7.o ") returned a non-zero value 0.
`----

-- 
Eric Marsden



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

Reply via email to