Custom Query (1030 matches)
Results (367 - 369 of 1030)
| Ticket | Resolution | Summary | Owner | Reporter |
|---|---|---|---|---|
| #1226 | fixed | x8632 compiler runs out of node temp registers | ||
| Description |
(defun bug (state)
(declare (type (simple-array (unsigned-byte 32) (627)) state)
(optimize (speed 3) (safety 0)))
(let ((y 0))
(declare (type (unsigned-byte 32) y))
(setf y (logior (logand (aref state (+ 3 (1- 624)))
#x80000000)
(logand (aref state 3) #x7fffffff)))
(setf (aref state (+ 3 (1- 624)))
(logxor (aref state (+ 3 (1- 397)))
(ash y -1) (aref state (logand y 1)))))
(values))
Compile with an x8632 lisp at 1.10-dev-r16186, and get "Bug: ran out of node temp registers." This is a cut-down test case from the mt19937 library. It could be loaded with (ql:quickload :mt19937) if desired. |
|||
| #1231 | fixed | compiling crazy form hangs compiler interruptibly | ||
| Description |
On Version 1.10-dev-r16186 (both x8632 and x8664), this form hangs the compiler interruptibly. This can probably be trimmed down quite a bit, but I want to get it in here. (LAMBDA (A B C D)
(DECLARE (TYPE (INTEGER 37270 120214) A))
(DECLARE (TYPE (INTEGER 458933 7816260) B))
(DECLARE (TYPE (INTEGER 791477 43496750) C))
(DECLARE (TYPE (INTEGER -48863 -3460) D))
(DECLARE (IGNORABLE A B C D))
(DECLARE
(OPTIMIZE (COMPILATION-SPEED 3) (SAFETY 1) (SPACE 1) (SPEED 3)
(DEBUG 1)))
(LOAD-TIME-VALUE
(DOTIMES (IV1 1
(RESTART-BIND NIL
(COMPLEX (LOGIOR
(IF
(OR T (> 101586 -2452292))
(ELT
'(132654568)
(MIN 0 (MAX 0 12778119)))
(LET () 0)))
0)))
(- 268435453
IV1
-17
IV1
IV1
7355042570
-65371
IV1
IV1
IV1
-7
IV1
IV1
5
IV1
IV1
(REDUCE #'+ (VECTOR IV1))
IV1
IV1
IV1
(PROGN (TAGBODY (IF (AND (EQUAL -238537 14850) (/= IV1 IV1))
(REDUCE #'(LAMBDA
(LMV6 LMV4)
(RESTART-BIND
NIL
(ISQRT (ABS (/ 2147483657 1)))))
(LIST 264 IV1)
:START
1)
(MACROLET () (MIN 33554429 -2978623)))
TAG1 (ELT '(88678025152)
(MIN 0
(MAX
0
(*
(COUNT
155558
#(268435115)
:TEST-NOT
'EQL)
(BIT
#*000100001101110
(MIN 14 (MAX 0 (GO TAG2))))))))
TAG2 (GO 0)
0
(EXPT (REDUCE #'(LAMBDA
(LMV5 LMV3)
(EVAL
(VALUES
(REDUCE
'+
(LIST 4440788 -2 32768)
:START
2
:FROM-END
T))))
(LIST
IV1
(/ (GO 7) 1)
IV1
(SYMBOL-MACROLET
NIL
(COUNT -1535966 '(1307070924)))
IV1)
:FROM-END
T)
0)
7)
IV1)
(COUNT -243383 '(329292180) :TEST '=)
IV1
(LDB (BYTE 12 27) IV1)
-244889
2360
(1- (RESTART-BIND NIL
(SVREF #(872
477
414
934
249
482
959
97
516
423)
(MIN 9 (MAX 0 IV1)))))
(DOTIMES (IV2 2 -1) (/ 780201 1))))
T))
|
|||
| #1237 | fixed | Invalid Memory Operation with (complex double-float) arrays | ||
| Description |
; Welcome to Clozure Common Lisp Version 1.10-dev-r16221M-trunk (DarwinX8664)!
(defparameter cdf1 (make-array 100
:element-type '(complex double-float)
:adjustable nil
:fill-pointer nil
:initial-element #c(0.0d0 0.0d0)))
(defparameter cdf2 (make-array 100
:element-type '(complex double-float)
:adjustable nil
:fill-pointer nil
:initial-element #c(0.0d0 0.0d0)))
(defun init-vector (a)
(loop :for i :below (length a)
:do
(let ((initval (coerce (random 100.0) (array-element-type a))))
(setf (aref a i) initval))))
(init-vector cdf1)
(init-vector cdf2)
(defun vdp-cdf (a b)
"Vector dot product. Complex double-float."
(declare (optimize (speed 3) (safety 2) (debug 0))
(type (SIMPLE-ARRAY (complex DOUBLE-FLOAT)) a b))
(let ((size (min (length a) (length b)))
(accum #c(0.0d0 0.0d0)))
(declare (fixnum size)
(type (complex DOUBLE-FLOAT) accum))
(loop :for i :of-type fixnum :below size
:do (incf accum (* (aref a i)
(aref b i))))
accum))
(vdp-cdf cdf1 cdf2)
#|
If safety < 3:
> Error: Invalid memory operation.
> While executing: VDP-CDF, in process Listener(4).
> Type cmd-. to abort, cmd-\ for a list of available restarts.
> Type :? for other options.
1 >
If safety = 3:
[produces answer]
|#
|
|||
Note:
See TracQuery
for help on using queries.
