#292: Large generated functions problems
-----------------------+----------------------------------------------------
Reporter: sboukarev | Owner: ehuelsmann
Type: defect | Status: new
Priority: major | Milestone:
Component: compiler | Version:
Keywords: |
-----------------------+----------------------------------------------------
Some components of f2cl, which are generated from Fortran, have functions
with lots of code in it.
If there's too much code between go and a label, ABCL can't compile it.
{{{
(defmacro labels-galore (n)
`(prog ()
(go label1)
label2
,@(loop for i to n
collect `(print ,i) )
(return)
label1
(go label2)))
(defun test ()
(labels-galore 10000))
}}}
The assertion (<= -32768 JVM::OFFSET 32767) failed.
Increasing the number will eventually lead to a stack overflow.
Just a large body:
{{{
(defmacro large-body (n)
`(progn
,@(loop for i to n
collect `(print ,i))))
(defun test ()
(large-body 10000))
}}}
The assertion (< 0 (LENGTH JVM::C) 65536) failed.
--
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/292>
armedbear <http://common-lisp.net/project/armedbear>
armedbear
#286: #+nil(a . ) fails
-----------------------+----------------------------------------------------
Reporter: sboukarev | Owner: somebody
Type: defect | Status: new
Priority: minor | Milestone:
Component: other | Version:
Keywords: |
-----------------------+----------------------------------------------------
"Unmatched right parenthesis."
While #+nil(a . . ) is ok
And #+nil(. a ) is "The variable A is unbound."
--
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/286>
armedbear <http://common-lisp.net/project/armedbear>
armedbear
#285: (setf documentation) is undefined until documentation is called
-------------------------+--------------------------------------------------
Reporter: rschlatte | Owner: ehuelsmann
Type: defect | Status: new
Priority: minor | Milestone:
Component: interpreter | Version:
Keywords: |
-------------------------+--------------------------------------------------
Reported by Eric Marsden:
{{{
Armed Bear Common Lisp 1.2.0-dev-svn-14349
Java 1.6.0_18 Sun Microsystems Inc.
OpenJDK 64-Bit Server VM
Low-level initialization completed in 0.241 seconds.
Startup completed in 1.128 seconds.
Type ":help" for a list of available commands.
CL-USER(1): (defun foo (x) x)
FOO
CL-USER(2): (setf (documentation 'foo 'function) "Horx")
#<THREAD "interpreter" {482982BF}>: Debugger invoked on condition of type
UNDEFINED-FUNCTION
The function (SETF DOCUMENTATION) is undefined.
}}}
--
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/285>
armedbear <http://common-lisp.net/project/armedbear>
armedbear