projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Convert an ASSERT into an AVER in INIT-LIVE-TNS
[sbcl.git]
/
src
/
compiler
/
pack.lisp
diff --git
a/src/compiler/pack.lisp
b/src/compiler/pack.lisp
index
cc5afac
..
60d8565
100644
(file)
--- a/
src/compiler/pack.lisp
+++ b/
src/compiler/pack.lisp
@@
-856,8
+856,7
@@
((= offset end))
(declare (type index offset end))
(setf (svref (finite-sb-live-tns sb) offset) tn))
((= offset end))
(declare (type index offset end))
(setf (svref (finite-sb-live-tns sb) offset) tn))
- (assert (and (null (tn-reads tn))
- (null (tn-writes tn))))))))
+ (aver (and (null (tn-reads tn)) (null (tn-writes tn))))))))
(setq *live-block* block)
(setq *live-vop* (ir2-block-last-vop block))
(setq *live-block* block)
(setq *live-vop* (ir2-block-last-vop block))