Commit 9ffd0212 authored by ram's avatar ram
Browse files

Fixed typo.

parent 05751ccd
......@@ -168,9 +168,9 @@
(let ((nblocks (ir2-block-count component)))
(dolist (sb *sb-list*)
(unless (eq (sb-kind sb) :non-packed)
(let ((conflicts (finite-sb-conflicts sb))
(always-live (finite-sb-always-live sb))
(max-locs (length conflicts)))
(let* ((conflicts (finite-sb-conflicts sb))
(always-live (finite-sb-always-live sb))
(max-locs (length conflicts)))
(unless (zerop max-locs)
(let ((current-size (length (svref conflicts 0))))
(when (> nblocks current-size)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment