From a7060fcb52c9031baf7a4a6fc66aa2efd2af8931 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 23 Jul 1991 12:04:51 +0000
Subject: [PATCH] Added assignment to *target-float-hardware*.

---
 compiler/rt/params.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/compiler/rt/params.lisp b/compiler/rt/params.lisp
index b5c5f84fc..999f2c553 100644
--- a/compiler/rt/params.lisp
+++ b/compiler/rt/params.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/params.lisp,v 1.7 1991/07/23 12:00:18 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/params.lisp,v 1.8 1991/07/23 12:04:51 ram Exp $
 ;;;
 ;;; This file contains some parameterizations of various VM attributes for the
 ;;; IBM RT.  This file is separate from other stuff, so we can compile and
@@ -46,6 +46,7 @@
 (eval-when (compile eval load)
 
 #-afpa (progn
+(setf *target-float-hardware* :mc68881)
 (setf (backend-name *target-backend*) "RT")
 (setf (backend-version *target-backend*) "IBM RT/Mach 1.0")
 (setf (backend-fasl-file-type *target-backend*) "rtf")
@@ -53,6 +54,7 @@
       rt-fasl-file-implementation))
 
 #+afpa (progn
+(setf *target-float-hardware* :afpa)
 (setf (backend-name *target-backend*) "RT")
 (setf (backend-version *target-backend*) "IBM RT EAPC/Mach 1.0")
 (setf (backend-fasl-file-type *target-backend*) "eapcf")
-- 
GitLab