Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28125/src/compiler
Modified Files:
ir1util.lisp
Log Message:
0.8.4.19:
* Quick fix: disable insertion of stepping forms in
FILTER-LVAR. (The proper way would be to rename
*ALLOW-DEBUG-CATCH-TAG* to *ALLOW-CODE-INSTRUMENTATION* and
use it to disable insertion of stepping forms into
internally generated code, but first I'd like to restore
SLIME compilability.)
Index: ir1util.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir1util.lisp,v
retrieving revision 1.95
retrieving revision 1.96
diff -u -d -r1.95 -r1.96
--- ir1util.lisp 13 Sep 2004 05:40:29 -0000 1.95
+++ ir1util.lisp 14 Sep 2004 03:38:14 -0000 1.96
@@ -276,7 +276,8 @@
(dolist (block (block-pred old-block))
(change-block-successor block old-block new-block))
- (ir1-convert new-start ctran filtered-lvar form)
+ (ir1-convert new-start ctran filtered-lvar
+ `(locally (declare (optimize (insert-step-conditions 0))) ,form))
;; KLUDGE: Comments at the head of this function in CMU CL
;; said that somewhere in here we
|