From c6874a7513e3d783a06142f730e3361c7bfb8e1f Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 16 Dec 1992 20:02:39 +0000
Subject: [PATCH] Changed do-inits to use make-restricted-tn instead of
 make-normal-tn.

---
 compiler/generic/vm-ir2tran.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/generic/vm-ir2tran.lisp b/compiler/generic/vm-ir2tran.lisp
index 14372d15d..76371683f 100644
--- a/compiler/generic/vm-ir2tran.lisp
+++ b/compiler/generic/vm-ir2tran.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-ir2tran.lisp,v 1.3 1992/12/16 18:10:22 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-ir2tran.lisp,v 1.4 1992/12/16 20:02:39 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -59,9 +59,9 @@
 	       (:unbound
 		(or unbound-marker-tn
 		    (setf unbound-marker-tn
-			  (let ((tn (make-normal-tn
-				     (primitive-type-or-lose 'positive-fixnum
-							     *backend*))))
+			  (let ((tn (make-restricted-tn
+				     nil
+				     (sc-number-or-lose 'vm::any-reg))))
 			    (vop make-unbound-marker node block tn)
 			    tn))))
 	       (:null
-- 
GitLab