From d1f840c516f3d72b17a6f76114047f9462ef04e4 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 20 Oct 1990 01:36:42 +0000
Subject: [PATCH] Added a :kind :normal to the make-random-tn call.

---
 assembly/assemfile.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/assembly/assemfile.lisp b/assembly/assemfile.lisp
index 65c0519a6..dc57de7ce 100644
--- a/assembly/assemfile.lisp
+++ b/assembly/assemfile.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.17 1990/10/13 21:45:47 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.18 1990/10/20 01:36:42 wlott Exp $
 ;;;
 ;;; This file contains the extra code necessary to feed an entire file of
 ;;; assembly code to the assembler.
@@ -118,6 +118,7 @@
 		  #'(lambda (reg)
 		      `(,(reg-spec-name reg)
 			(make-random-tn
+			 :kind :normal
 			 :sc (sc-or-lose ',(reg-spec-sc reg))
 			 :offset ,(reg-spec-offset reg))))
 		  regs))
-- 
GitLab