Skip to content
Snippets Groups Projects
Commit d1f840c5 authored by wlott's avatar wlott
Browse files

Added a :kind :normal to the make-random-tn call.

parent 13d0f233
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment