From 2f00df4de3e5b8d20480835a4131c3aafd36653e Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 29 Jun 1993 22:23:16 +0000
Subject: [PATCH] Disable some primitive open coding until the back end is
 taught how to do it.

---
 v7/src/compiler/machines/alpha/machin.scm  |  6 ++++--
 v7/src/compiler/machines/bobcat/machin.scm | 11 ++++++++---
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/v7/src/compiler/machines/alpha/machin.scm b/v7/src/compiler/machines/alpha/machin.scm
index c3700331b..e168f6159 100644
--- a/v7/src/compiler/machines/alpha/machin.scm
+++ b/v7/src/compiler/machines/alpha/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: machin.scm,v 1.4 1993/01/08 00:03:32 cph Exp $
+$Id: machin.scm,v 1.5 1993/06/29 22:21:47 gjr Exp $
 
 Copyright (c) 1992-1993 Digital Equipment Corporation (D.E.C.)
 
@@ -463,4 +463,6 @@ case.
     INTEGER-QUOTIENT INTEGER-REMAINDER &/
     FLONUM-SIN FLONUM-COS FLONUM-TAN FLONUM-ASIN FLONUM-ACOS
     FLONUM-ATAN FLONUM-EXP FLONUM-LOG FLONUM-TRUNCATE FLONUM-ROUND
-    FLONUM-REMAINDER FLONUM-SQRT))
\ No newline at end of file
+    FLONUM-REMAINDER FLONUM-SQRT
+    VECTOR-CONS STRING-ALLOCATE FLOATING-VECTOR-CONS
+    FLOATING-VECTOR-REF FLOATING-VECTOR-SET!))
\ No newline at end of file
diff --git a/v7/src/compiler/machines/bobcat/machin.scm b/v7/src/compiler/machines/bobcat/machin.scm
index 838fc8ef0..64095888e 100644
--- a/v7/src/compiler/machines/bobcat/machin.scm
+++ b/v7/src/compiler/machines/bobcat/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: machin.scm,v 4.29 1993/01/08 00:04:03 cph Exp $
+$Id: machin.scm,v 4.30 1993/06/29 22:23:16 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -58,9 +58,12 @@ MIT in each case. |#
   ;; (expt 2 (- 8 scheme-type-width)) ***
   4)
 
-(define-integrable flonum-size 2)
+(define-integrable float-width 64)
 (define-integrable float-alignment 32)
 
+(define-integrable address-units-per-float
+  (quotient float-width addressing-granularity))
+
 ;;; It is currently required that both packed characters and objects
 ;;; be integrable numbers of address units.  Furthermore, the number
 ;;; of address units per object must be an integral multiple of the
@@ -393,4 +396,6 @@ MIT in each case. |#
   true)
 
 (define compiler:primitives-with-no-open-coding
-  '(DIVIDE-FIXNUM GCD-FIXNUM &/))
\ No newline at end of file
+  '(DIVIDE-FIXNUM GCD-FIXNUM &/
+    VECTOR-CONS STRING-ALLOCATE FLOATING-VECTOR-CONS
+    FLOATING-VECTOR-REF FLOATING-VECTOR-SET!))
\ No newline at end of file
-- 
2.25.1