From: Chris Hanson Date: Thu, 7 Jun 1990 19:56:35 +0000 (+0000) Subject: Rename references to primitives that have been renamed in the X-Git-Tag: 20090517-FFI~11401 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6164a446c0911155b962d3a86b3556efaa31d2a0;p=mit-scheme.git 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 01700fce1..ce247e8ff 100644 --- 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 674e34df1..ed3409809 100644 --- 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 df2f36ad4..b78180a50 100644 --- 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 202414e51..a9314378f 100644 --- 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 af1511c2d..30ff92e77 100644 --- 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 63e6e7dbc..95818d1ea 100644 --- 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 0482c402d..f9ff6e1b1 100644 --- 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")