From f220a94874a996818be25cbfbcabf112c42ebff6 Mon Sep 17 00:00:00 2001
From: ch <ch>
Date: Sun, 25 Feb 1990 18:35:05 +0000
Subject: [PATCH] Added SINGLE-FLOAT and DOUBLE-FLOAT primitive types.

---
 compiler/mips/vm.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compiler/mips/vm.lisp b/compiler/mips/vm.lisp
index f9da42b2a..504656d1c 100644
--- a/compiler/mips/vm.lisp
+++ b/compiler/mips/vm.lisp
@@ -7,12 +7,12 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.10 1990/02/24 17:03:52 ch Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.11 1990/02/25 18:35:05 ch Exp $
 ;;;
 ;;; This file contains the VM definition for the MIPS R2000 and the new
 ;;; object format.
 ;;;
-;;; Written by Christopher Hoover.
+;;; Written by Christopher Hoover and William Lott.
 ;;;
 (in-package "C")
 
@@ -196,6 +196,8 @@
 (def-primitive-type bignum (descriptor-reg control-stack))
 (def-primitive-type ratio (descriptor-reg control-stack))
 (def-primitive-type complex (descriptor-reg control-stack))
+(def-primitive-type single-float (descriptor-reg control-stack))
+(def-primitive-type double-float (descriptor-reg control-stack))
 
 ;;;
 (def-primitive-type simple-string (descriptor-reg control-stack))
-- 
GitLab