Skip to content
Snippets Groups Projects
Commit 5d45bef2 authored by ram's avatar ram
Browse files

Added a declaration.

parent 90f7fa18
No related branches found
No related tags found
No related merge requests found
...@@ -317,6 +317,7 @@ ...@@ -317,6 +317,7 @@
(do ((op (do ((op ops (tn-ref-across op)) (do ((op (do ((op ops (tn-ref-across op))
(i 0 (1+ i))) (i 0 (1+ i)))
((= i (length fixed)) op)) ((= i (length fixed)) op))
(declare (type index i))
(tn-ref-across op))) (tn-ref-across op)))
((null op)) ((null op))
(let ((tn (tn-ref-tn op))) (let ((tn (tn-ref-tn op)))
...@@ -368,6 +369,7 @@ ...@@ -368,6 +369,7 @@
(defun lifetime-pre-pass (component) (defun lifetime-pre-pass (component)
(declare (type component component)) (declare (type component component))
(let ((counter -1)) (let ((counter -1))
(declare (type fixnum counter))
(do-blocks-backwards (block component) (do-blocks-backwards (block component)
(let ((2block (block-info block))) (let ((2block (block-info block)))
(do ((lose (find-local-references 2block) (do ((lose (find-local-references 2block)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment