From 5d45bef26008a92a4df56cb1fc31c9e55641fdde Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 6 Oct 1990 18:47:16 +0000 Subject: [PATCH] Added a declaration. --- compiler/life.lisp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/compiler/life.lisp b/compiler/life.lisp index 21ff5d37c..d52ff4fe4 100644 --- a/compiler/life.lisp +++ b/compiler/life.lisp @@ -317,6 +317,7 @@ (do ((op (do ((op ops (tn-ref-across op)) (i 0 (1+ i))) ((= i (length fixed)) op)) + (declare (type index i)) (tn-ref-across op))) ((null op)) (let ((tn (tn-ref-tn op))) @@ -368,6 +369,7 @@ (defun lifetime-pre-pass (component) (declare (type component component)) (let ((counter -1)) + (declare (type fixnum counter)) (do-blocks-backwards (block component) (let ((2block (block-info block))) (do ((lose (find-local-references 2block) -- GitLab