From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 28 Oct 1993 02:55:10 +0000 (+0000)
Subject: Enable open-coding of certain primitives.
X-Git-Tag: 20090517-FFI~7659
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6e0c65fdb1df96be70e4560475829dc673dfa2ef;p=mit-scheme.git

Enable open-coding of certain primitives.
---

diff --git a/v7/src/compiler/machines/C/machin.scm b/v7/src/compiler/machines/C/machin.scm
index ed500ce25..e07d6340b 100644
--- a/v7/src/compiler/machines/C/machin.scm
+++ b/v7/src/compiler/machines/C/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: machin.scm,v 1.4 1993/10/26 02:59:34 gjr Exp $
+$Id: machin.scm,v 1.5 1993/10/28 02:55:01 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -308,11 +308,5 @@ MIT in each case. |#
   true)
 
 (define compiler:primitives-with-no-open-coding
-  '(
-    DIVIDE-FIXNUM GCD-FIXNUM  &/ FLONUM-SIN FLONUM-COS FLONUM-TAN
-    FLONUM-ASIN FLONUM-ACOS
-    FLONUM-ATAN FLONUM-EXP FLONUM-LOG FLONUM-TRUNCATE FLONUM-ROUND
-    FLONUM-REMAINDER FLONUM-SQRT
-    VECTOR-CONS STRING-ALLOCATE FLOATING-VECTOR-CONS
-    FLOATING-VECTOR-REF FLOATING-VECTOR-SET!))
-
+  '(DIVIDE-FIXNUM GCD-FIXNUM &/
+    VECTOR-CONS STRING-ALLOCATE FLOATING-VECTOR-CONS))
\ No newline at end of file
diff --git a/v7/src/compiler/machines/C/rgspcm.scm b/v7/src/compiler/machines/C/rgspcm.scm
index 880df131f..18bf86c30 100644
--- a/v7/src/compiler/machines/C/rgspcm.scm
+++ b/v7/src/compiler/machines/C/rgspcm.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: rgspcm.scm,v 1.1 1993/06/08 06:13:32 gjr Exp $
+$Id: rgspcm.scm,v 1.2 1993/10/28 02:55:10 gjr Exp $
 
-Copyright (c) 1992 Massachusetts Institute of Technology
+Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -70,5 +70,11 @@ MIT in each case. |#
 (define-special-primitive/standard 'zero?)
 (define-special-primitive/standard 'positive?)
 (define-special-primitive/standard 'negative?)
-
-
+(define-special-primitive/standard 'quotient)
+(define-special-primitive/standard 'remainder)
+
+#|
+(define-special-primitive/if-open-coding 'vector-cons)
+(define-special-primitive/if-open-coding 'string-allocate)
+(define-special-primitive/if-open-coding 'floating-vector-cons)
+|#
\ No newline at end of file