Add PRIMITIVE-PROFILING-TABLE slot to fixed objects vector.

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index 87042a9930ed779c6c8c37fdfa62bbad56ca3568..476321fca8ee03dd6d65f4cc51d3e18cef31606c 100644 (file)
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.26 1987/04/25 20:27:27 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.27 1987/04/29 13:19:32 cph Exp $
 
 (declare (usual-integrations))
 
@@ -91,7 +91,7 @@
               COMPILER-ERROR-PROCEDURE                 ;20
               LOST-OBJECT-BASE                         ;21
               STATE-SPACE-ROOT                         ;22
-              MICROCODE-TABLE-IDENTIFICATION           ;23
+              PRIMITIVE-PROFILING-TABLE                ;23
               ))
 \f
 ;;; [] Types
@@ -854,4 +854,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.26 1987/04/25 20:27:27 cph Exp $"
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.27 1987/04/29 13:19:32 cph Exp $"

diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index cdafb6c9702e1c694659baf2fdcae35c8482ec39..880a4b639c60daa7d1f0c21d2fcd6d8f75145fbb 100644 (file)
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.26 1987/04/25 20:27:27 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.27 1987/04/29 13:19:32 cph Exp $
 
 (declare (usual-integrations))
 
@@ -91,7 +91,7 @@
               COMPILER-ERROR-PROCEDURE                 ;20
               LOST-OBJECT-BASE                         ;21
               STATE-SPACE-ROOT                         ;22
-              MICROCODE-TABLE-IDENTIFICATION           ;23
+              PRIMITIVE-PROFILING-TABLE                ;23
               ))
 \f
 ;;; [] Types
@@ -854,4 +854,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.26 1987/04/25 20:27:27 cph Exp $"
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.27 1987/04/29 13:19:32 cph Exp $"