Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1:/tmp/cvs-serv25989/src/compiler
Modified Files:
ir1opt.lisp
Log Message:
0.8.3.59:
* Fixed compier failure reported by Paul Dietz to sbcl-devel
in <3F630474.6070301@...>.
"APD, continuations do not represent control transfers, is it
so hard to remember?!"
Index: ir1opt.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir1opt.lisp,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -d -r1.75 -r1.76
--- ir1opt.lisp 11 Sep 2003 10:31:56 -0000 1.75
+++ ir1opt.lisp 14 Sep 2003 05:02:45 -0000 1.76
@@ -1809,7 +1809,8 @@
(delete-continuation-use use)
(add-continuation-use use cont)
(unlink-blocks (node-block use) (node-block cast))
- (link-blocks (node-block use) (continuation-block cont))
+ (link-blocks (node-block use)
+ (first (block-succ (node-block cast))))
(when (and (return-p dest)
(basic-combination-p use)
(eq (basic-combination-kind use) :local))
|