Skip to content
Snippets Groups Projects
Commit a7060fcb authored by ram's avatar ram
Browse files

Added assignment to *target-float-hardware*.

parent 3016f404
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; 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 ;;; 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 ;;; IBM RT. This file is separate from other stuff, so we can compile and
...@@ -46,6 +46,7 @@ ...@@ -46,6 +46,7 @@
(eval-when (compile eval load) (eval-when (compile eval load)
#-afpa (progn #-afpa (progn
(setf *target-float-hardware* :mc68881)
(setf (backend-name *target-backend*) "RT") (setf (backend-name *target-backend*) "RT")
(setf (backend-version *target-backend*) "IBM RT/Mach 1.0") (setf (backend-version *target-backend*) "IBM RT/Mach 1.0")
(setf (backend-fasl-file-type *target-backend*) "rtf") (setf (backend-fasl-file-type *target-backend*) "rtf")
...@@ -53,6 +54,7 @@ ...@@ -53,6 +54,7 @@
rt-fasl-file-implementation)) rt-fasl-file-implementation))
#+afpa (progn #+afpa (progn
(setf *target-float-hardware* :afpa)
(setf (backend-name *target-backend*) "RT") (setf (backend-name *target-backend*) "RT")
(setf (backend-version *target-backend*) "IBM RT EAPC/Mach 1.0") (setf (backend-version *target-backend*) "IBM RT EAPC/Mach 1.0")
(setf (backend-fasl-file-type *target-backend*) "eapcf") (setf (backend-fasl-file-type *target-backend*) "eapcf")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment