From ea0a79bd55bfc879fc61d266a3b4a1c45a278946 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 1 Dec 1990 16:32:28 +0000
Subject: [PATCH] Added vm: where necessary now that the C package doesn't use
 the VM package.

---
 compiler/float-tran.lisp | 42 ++++++++++++++++++++--------------------
 1 file changed, 21 insertions(+), 21 deletions(-)

diff --git a/compiler/float-tran.lisp b/compiler/float-tran.lisp
index 8ea9e6b94..032720491 100644
--- a/compiler/float-tran.lisp
+++ b/compiler/float-tran.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.6 1990/10/24 16:44:14 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.7 1990/12/01 16:32:28 wlott Exp $
 ;;;
 ;;; This file contains floating-point specific transforms, and may be somewhat
 ;;; implementation dependent in its assumptions of what the formats are.
@@ -104,41 +104,41 @@
 ;;;
 
 (defconstant single-float-digits
-  (1+ (byte-size single-float-significand-byte)))
+  (1+ (byte-size vm:single-float-significand-byte)))
 
 (defconstant double-float-digits
-  (+ (byte-size double-float-significand-byte)
-			vm:word-bits
-			1))
+  (+ (byte-size vm:double-float-significand-byte)
+     vm:word-bits
+     1))
 
 (deftype single-float-exponent ()
-  `(integer ,(- single-float-normal-exponent-min single-float-bias
-		single-float-digits)
-	    ,(- single-float-normal-exponent-max single-float-bias)))
+  `(integer ,(- vm:single-float-normal-exponent-min vm:single-float-bias
+		vm:single-float-digits)
+	    ,(- vm:single-float-normal-exponent-max vm:single-float-bias)))
 
 (deftype double-float-exponent ()
-  `(integer ,(- double-float-normal-exponent-min double-float-bias
-		double-float-digits)
-	    ,(- double-float-normal-exponent-max double-float-bias)))
+  `(integer ,(- vm:double-float-normal-exponent-min vm:double-float-bias
+		vm:double-float-digits)
+	    ,(- vm:double-float-normal-exponent-max vm:double-float-bias)))
 
 
 (deftype single-float-int-exponent ()
-  `(integer ,(- single-float-normal-exponent-min single-float-bias
-		(* single-float-digits 2))
-	    ,(- single-float-normal-exponent-max single-float-bias
-		single-float-digits)))
+  `(integer ,(- vm:single-float-normal-exponent-min vm:single-float-bias
+		(* vm:single-float-digits 2))
+	    ,(- vm:single-float-normal-exponent-max vm:single-float-bias
+		vm:single-float-digits)))
 
 (deftype double-float-int-exponent ()
-  `(integer ,(- double-float-normal-exponent-min double-float-bias
-		(* double-float-digits 2))
-	    ,(- double-float-normal-exponent-max double-float-bias
-		double-float-digits)))
+  `(integer ,(- vm:double-float-normal-exponent-min vm:double-float-bias
+		(* vm:double-float-digits 2))
+	    ,(- vm:double-float-normal-exponent-max vm:double-float-bias
+		vm:double-float-digits)))
 
 (deftype single-float-significand ()
-  `(integer 0 (,(ash 1 single-float-digits))))
+  `(integer 0 (,(ash 1 vm:single-float-digits))))
 
 (deftype double-float-significand ()
-  `(integer 0 (,(ash 1 double-float-digits))))
+  `(integer 0 (,(ash 1 vm:double-float-digits))))
 
 (defknown decode-single-float (single-float)
   (values single-float single-float-exponent (single-float -1f0 1f0))
-- 
GitLab