Rename references to primitives that have been renamed in the

microcode.

diff --git a/v7/src/compiler/back/bittop.scm b/v7/src/compiler/back/bittop.scm
index 01700fce1b01957fa3d78e157eb8945685b3f931..ce247e8ff8d4847134029fe9cac53ab2e18db6fa 100644 (file)
--- a/v7/src/compiler/back/bittop.scm
+++ b/v7/src/compiler/back/bittop.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/bittop.scm,v 1.12 1990/01/18 22:41:47 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/bittop.scm,v 1.13 1990/06/07 19:56:35 cph Rel $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -135,7 +135,7 @@ MIT in each case. |#
       (with-absolutely-no-interrupts
        (lambda ()
          (vector-set! output-block 0
-                      ((ucode-primitive primitive-object-new-type)
+                      ((ucode-primitive primitive-object-set-type)
                        (ucode-type manifest-nm-vector)
                        non-pointer-length)))))
     (write-bits! output-block

diff --git a/v7/src/compiler/base/crsend.scm b/v7/src/compiler/base/crsend.scm
index 674e34df15a3a9cb7df17a34272db2b8b6f0c6f4..ed3409809efae5f9a22d6d2931ed19ec84c00007 100644 (file)
--- a/v7/src/compiler/base/crsend.scm
+++ b/v7/src/compiler/base/crsend.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/crsend.scm,v 1.3 1990/01/18 22:42:38 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/crsend.scm,v 1.4 1990/06/07 19:52:33 cph Rel $
 $MC68020-Header: toplev.scm,v 4.16 89/04/26 05:09:52 GMT cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
@@ -117,7 +117,7 @@ MIT in each case. |#
                   label
                   (with-absolutely-no-interrupts
                    (lambda ()
-                     ((ucode-primitive &make-object)
+                     ((ucode-primitive primitive-object-set-type)
                       type-code:compiled-entry
                       (make-non-pointer-object
                        (+ (cdr (or (assq label label-bindings)

diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm
index df2f36ad477dc3986bef5ce4c2596df625dcb64d..b78180a503aa6061d0d1142e06d3ccf7e767ba05 100644 (file)
--- a/v7/src/compiler/base/toplev.scm
+++ b/v7/src/compiler/base/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/toplev.scm,v 4.28 1990/05/03 15:03:49 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/toplev.scm,v 4.29 1990/06/07 19:52:14 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -1096,7 +1096,7 @@ MIT in each case. |#
                      label
                      (with-absolutely-no-interrupts
                       (lambda ()
-                        ((ucode-primitive &make-object)
+                        ((ucode-primitive primitive-object-set-type)
                          type-code:compiled-entry
                          (make-non-pointer-object
                           (+ (label->offset label)

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index 202414e51ff316dd2ad774893d83d9db60464234..a9314378f858d34376c5cc5b5f947258c2d77051 100644 (file)
--- a/v7/src/runtime/global.scm
+++ b/v7/src/runtime/global.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.14 1989/08/17 13:53:39 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.15 1990/06/07 19:53:40 cph Exp $
 
-Copyright (c) 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -168,7 +168,7 @@ MIT in each case. |#
          (wait-loop)))))
 
 (define-integrable (future? object)
-  ((ucode-primitive primitive-type? 2) (ucode-type future) object))
+  ((ucode-primitive object-type? 2) (ucode-type future) object))
 
 (define (exit)
   (if (prompt-for-confirmation "Kill Scheme")

diff --git a/v7/src/runtime/udata.scm b/v7/src/runtime/udata.scm
index af1511c2d7b51e8b371619b0dd933dc01ef11d39..30ff92e77731d13f0078f8c62cd5c6c456a972f1 100644 (file)
--- a/v7/src/runtime/udata.scm
+++ b/v7/src/runtime/udata.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/udata.scm,v 14.12 1990/04/21 16:26:13 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/udata.scm,v 14.13 1990/06/07 19:55:02 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -200,7 +200,7 @@ that you cannot just vector-ref into.
    ;; This combination returns an unsafe object, but since it
    ;; is used as an argument to a primitive, I can get away
    ;; with not turning off the garbage collector.
-   ((ucode-primitive system-memory-ref 2) block 0)))
+   ((ucode-primitive primitive-object-ref 2) block 0)))
 
 (define (compiled-code-block/index->offset index)
   (* (1+ index) compiled-code-block/bytes-per-object))

diff --git a/v7/src/sf/subst.scm b/v7/src/sf/subst.scm
index 63e6e7dbce884d79980c8ed97f8a45ba5257bda3..95818d1ea827bc9a18c45baca719c3663394a320 100644 (file)
--- a/v7/src/sf/subst.scm
+++ b/v7/src/sf/subst.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/subst.scm,v 4.5 1989/10/26 06:28:14 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/subst.scm,v 4.6 1990/06/07 19:53:16 cph Rel $
 
-Copyright (c) 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -804,7 +804,7 @@ forms are simply removed.
 
 (define *foldable-primitive-procedures
   (map make-primitive-procedure
-       '(PRIMITIVE-TYPE PRIMITIVE-TYPE?
+       '(OBJECT-TYPE OBJECT-TYPE?
          NOT EQ? NULL? PAIR? ZERO? POSITIVE? NEGATIVE?
         &= &< &> &+ &- &* &/ 1+ -1+)))
 

diff --git a/v8/src/runtime/global.scm b/v8/src/runtime/global.scm
index 0482c402df2499492ad9292c88fbb9b3581ea04c..f9ff6e1b1ed8d9b4ea27a79ed3b1715fb973a146 100644 (file)
--- a/v8/src/runtime/global.scm
+++ b/v8/src/runtime/global.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.14 1989/08/17 13:53:39 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.15 1990/06/07 19:53:40 cph Exp $
 
-Copyright (c) 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -168,7 +168,7 @@ MIT in each case. |#
          (wait-loop)))))
 
 (define-integrable (future? object)
-  ((ucode-primitive primitive-type? 2) (ucode-type future) object))
+  ((ucode-primitive object-type? 2) (ucode-type future) object))
 
 (define (exit)
   (if (prompt-for-confirmation "Kill Scheme")