From 1751fa86d9512c05a27a33450e8a31e86d585ea4 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 13 Apr 1991 13:38:10 +0000
Subject: [PATCH] Changed 68881 to mc68881.  Added nl0-tn.

---
 compiler/rt/vm.lisp | 27 +++++++++++++++++----------
 1 file changed, 17 insertions(+), 10 deletions(-)

diff --git a/compiler/rt/vm.lisp b/compiler/rt/vm.lisp
index 3b2a5d4b4..f2ed01287 100644
--- a/compiler/rt/vm.lisp
+++ b/compiler/rt/vm.lisp
@@ -19,7 +19,7 @@
 ;;;; SB and SC definition:
 
 (define-storage-base registers :finite :size 16)
-(define-storage-base 68881-float-registers :finite :size 8)
+(define-storage-base mc68881-float-registers :finite :size 8)
 (define-storage-base AFPA-float-registers :finite :size 64)
 (define-storage-base FPA-float-registers :finite :size 16)
 (define-storage-base control-stack :unbounded :size 8)
@@ -135,14 +135,14 @@
 
   ;; **** Things that can go in the floating point registers.
 
-  ;; Non-Descriptor 68881-single-floats.
-  (68881-single-reg 68881-float-registers
+  ;; Non-Descriptor mc68881-single-floats.
+  (mc68881-single-reg mc68881-float-registers
    :locations (0 1 2 3 4 5 6 7)
    :constant-scs (constant)
    :save-p t
    :alternate-scs (single-stack))
-  ;; Non-Descriptor 68881-double-floats.
-  (68881-double-reg 68881-float-registers
+  ;; Non-Descriptor mc68881-double-floats.
+  (mc68881-double-reg mc68881-float-registers
    :locations (0 1 2 3 4 5 6 7)
    :constant-scs (constant)
    :save-p t
@@ -250,8 +250,8 @@
 (def-primitive-type bignum (descriptor-reg))
 (def-primitive-type ratio (descriptor-reg))
 (def-primitive-type complex (descriptor-reg))
-(def-primitive-type 68881-single-float (68881-single-reg descriptor-reg))
-(def-primitive-type 68881-double-float (68881-double-reg descriptor-reg))
+(def-primitive-type mc68881-single-float (mc68881-single-reg descriptor-reg))
+(def-primitive-type mc68881-double-float (mc68881-double-reg descriptor-reg))
 (def-primitive-type FPA-single-float (FPA-single-reg descriptor-reg))
 (def-primitive-type FPA-double-float (FPA-double-reg descriptor-reg))
 (def-primitive-type AFPA-single-float (AFPA-single-reg descriptor-reg))
@@ -435,7 +435,7 @@
       ((short-float single-float)
        (ecase *target-float-hardware*
 	 (:mc68881
-	  (values (primitive-type-or-lose '68881-single-float) exact))
+	  (values (primitive-type-or-lose 'mc68881-single-float) exact))
 	 (:fpa
 	  (values (primitive-type-or-lose 'fpa-single-float) exact))
 	 (:afpa
@@ -445,7 +445,7 @@
       ((double-float long-float)
        (ecase *target-float-hardware*
 	 (:mc68881
-	  (values (primitive-type-or-lose '68881-double-float) exact))
+	  (values (primitive-type-or-lose 'mc68881-double-float) exact))
 	 (:fpa
 	  (values (primitive-type-or-lose 'fpa-double-float) exact))
 	 (:afpa
@@ -525,6 +525,13 @@
 		  :sc (sc-or-lose 'any-reg)
 		  :offset code-offset))
 
+;;; Random non-descriptor tn
+;;;
+(defparameter nl0-tn
+  (make-random-tn :kind :normal
+		  :sc (sc-or-lose 'non-descriptor-reg)
+		  :offset nl0-offset))
+
 
 
 ;;;; Side-Effect Classes
@@ -644,7 +651,7 @@
 	(offset (tn-offset tn)))
     (ecase sb
       (registers (svref register-names (tn-offset tn)))
-      ((68881-float-registers FPA-float-registers AFPA-float-registers)
+      ((mc68881-float-registers FPA-float-registers AFPA-float-registers)
        (format nil "F~D" offset))
       (control-stack (format nil "CS~D" offset))
       (non-descriptor-stack (format nil "NS~D" offset))
-- 
GitLab