Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1:/tmp/cvs-serv23644
Modified Files:
BUGS version.lisp-expr
Log Message:
0.8.3.70:
* Update comments to the change of "continuation"
representation;
* fix bug reported by WHN: IR1-translator for TRULY-THE does
nothing if its value is unused;
* describe bug reported by Nikodemus Siivola on sbcl-devel
2003-09-15;
* rewrite test of restoring floating point modes on Alpha: old
version failed due to the absence of ABORT restart.
Index: BUGS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/BUGS,v
retrieving revision 1.348
retrieving revision 1.349
diff -u -d -r1.348 -r1.349
--- BUGS 15 Sep 2003 15:09:01 -0000 1.348
+++ BUGS 16 Sep 2003 07:45:06 -0000 1.349
@@ -1255,3 +1255,37 @@
denormalized float, in general, we mask out that bit when we restore
the control word; however, this clobbers any change the user might
have made.
+
+291: "bugs in deletion of embedded functions"
+
+ Python fails to compile (simplified version of the problem reported
+ by Nikodemus Siivola)
+
+ (defstruct (line)
+ (%chars ""))
+
+ (defun update-window-imag (line)
+ (tagbody
+ TOP
+ (if (null line)
+ (go DONE)
+ (go TOP))
+ DONE
+ (unless (eq current the-sentinel)
+ (let* ((cc (car current))
+ (old-line (dis-line-line cc)))
+ (if (eq old-line line)
+ (do ((chars (line-%chars line) nil)) ; <LET>
+ (())
+ (let* ()
+ (multiple-value-call
+ #'(lambda (&optional g2740 g2741 &rest g2742)
+ (declare (ignore g2742))
+ (catch 'foo ; <CLEANUP>
+ (values (setq string g2740) (setq underhang g2741))))
+ (foo)))
+ (setf (dis-line-old-chars cc) chars)))))))
+
+ Compiler deletes unreachable BIND node of <LET>, but its body,
+ including reference to the variable CHARS, remains reachable through
+ NLX from <CLEANUP>.
Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.1254
retrieving revision 1.1255
diff -u -d -r1.1254 -r1.1255
--- version.lisp-expr 15 Sep 2003 16:56:13 -0000 1.1254
+++ version.lisp-expr 16 Sep 2003 07:45:07 -0000 1.1255
@@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.3.69"
+"0.8.3.70"
|