From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 29 Jul 1993 07:11:02 +0000 (+0000)
Subject: Trampoline headers have a different tag so the profiler can
X-Git-Tag: 20090517-FFI~8165
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ba259e4cdc7ea6843ddc99d29dcc673b9c4db587;p=mit-scheme.git

Trampoline headers have a different tag so the profiler can
distinguish them from ordinary cc blocks.
---

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index 9d562d25a..eab4bf7cd 100644
--- a/v7/src/microcode/cmpint.c
+++ b/v7/src/microcode/cmpint.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: cmpint.c,v 1.59 1993/07/29 07:02:47 gjr Exp $
+$Id: cmpint.c,v 1.60 1993/07/29 07:11:02 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -2371,7 +2371,10 @@ DEFUN (store_uuo_link,
  */
 
 #define TRAMPOLINE_SIZE	(TRAMPOLINE_ENTRY_SIZE + 2)
-#ifdef AUTOCLOBBER_BUG
+
+/* Enabled so that the profiler can distinguish trampolines */
+
+#if 1 || defined(AUTOCLOBBER_BUG)
 #  define TC_TRAMPOLINE_HEADER	TC_FIXNUM
 #else
 #  define TC_TRAMPOLINE_HEADER	TC_MANIFEST_VECTOR
diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c
index 9d562d25a..eab4bf7cd 100644
--- a/v8/src/microcode/cmpint.c
+++ b/v8/src/microcode/cmpint.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: cmpint.c,v 1.59 1993/07/29 07:02:47 gjr Exp $
+$Id: cmpint.c,v 1.60 1993/07/29 07:11:02 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -2371,7 +2371,10 @@ DEFUN (store_uuo_link,
  */
 
 #define TRAMPOLINE_SIZE	(TRAMPOLINE_ENTRY_SIZE + 2)
-#ifdef AUTOCLOBBER_BUG
+
+/* Enabled so that the profiler can distinguish trampolines */
+
+#if 1 || defined(AUTOCLOBBER_BUG)
 #  define TC_TRAMPOLINE_HEADER	TC_FIXNUM
 #else
 #  define TC_TRAMPOLINE_HEADER	TC_MANIFEST_VECTOR