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