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