From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 29 Apr 1987 13:19:32 +0000 (+0000)
Subject: Add PRIMITIVE-PROFILING-TABLE slot to fixed objects vector.
X-Git-Tag: 20090517-FFI~13571
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3fa6bd313166207b3510d44e0c1c86e4aab1a380;p=mit-scheme.git

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

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index 87042a993..476321fca 100644
--- 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
 	       ))
 
 ;;; [] 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 cdafb6c97..880a4b639 100644
--- 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
 	       ))
 
 ;;; [] 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 $"