From fb57caaa760a7b35e9a9ab870fd347d73cafeb70 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 26 Oct 1993 02:58:01 +0000
Subject: [PATCH] Rename declare_compiled_code to declare_compiled_code_block.
 The name declare_compiled_code was already in use by the C back end.

---
 v7/src/microcode/cmpint.c | 12 ++++++------
 v7/src/microcode/comutl.c |  6 +++---
 v8/src/microcode/cmpint.c | 12 ++++++------
 3 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index 0aef3e918..cb7be4dca 100644
--- a/v7/src/microcode/cmpint.c
+++ b/v7/src/microcode/cmpint.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: cmpint.c,v 1.72 1993/09/12 05:18:38 gjr Exp $
+$Id: cmpint.c,v 1.73 1993/10/26 02:57:43 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -284,7 +284,7 @@ extern C_UTILITY void
   EXFUN (store_variable_cache,
 	 (SCHEME_OBJECT extension, SCHEME_OBJECT block, long offset)),
   EXFUN (compiled_entry_type, (SCHEME_OBJECT entry, long *buffer)),
-  EXFUN (declare_compiled_code, (SCHEME_OBJECT block));
+  EXFUN (declare_compiled_code_block, (SCHEME_OBJECT block));
 
 extern C_TO_SCHEME long
   EXFUN (enter_compiled_expression, (void)),
@@ -2410,7 +2410,7 @@ DEFUN (compiled_entry_type,
 }
 
 void
-DEFUN (declare_compiled_code, (block), SCHEME_OBJECT block)
+DEFUN (declare_compiled_code_block, (block), SCHEME_OBJECT block)
 {
   SCHEME_OBJECT * block_addr = (OBJECT_ADDRESS (block));
 
@@ -3169,7 +3169,7 @@ struct util_descriptor_s utility_descriptor_table[] =
   UTLD(compiled_entry_closure_p),
   UTLD(compiled_closure_to_entry),
   UTLD(compiled_entry_type),
-  UTLD(declare_compiled_code),
+  UTLD(declare_compiled_code_block),
   UTLD(store_variable_cache),
   UTLD(extract_variable_cache),
   UTLD(extract_uuo_link),
@@ -3551,7 +3551,7 @@ extern void
   EXFUN (store_variable_cache,
 	 (SCHEME_OBJECT extension, SCHEME_OBJECT block, long offset)),
   EXFUN (compiled_entry_type, (SCHEME_OBJECT entry, long *buffer)),
-  EXFUN (declare_compiled_code, (SCHEME_OBJECT block));
+  EXFUN (declare_compiled_code_block, (SCHEME_OBJECT block));
 
 /* Breakpoint stuff. */
 
@@ -3746,7 +3746,7 @@ DEFUN (compiled_closure_to_entry, (entry), SCHEME_OBJECT entry)
 }
 
 void
-DEFUN (declare_compiled_code, (block), SCHEME_OBJECT block)
+DEFUN (declare_compiled_code_block, (block), SCHEME_OBJECT block)
 {
   return;
 }
diff --git a/v7/src/microcode/comutl.c b/v7/src/microcode/comutl.c
index a254f23ae..03c6b3c7c 100644
--- a/v7/src/microcode/comutl.c
+++ b/v7/src/microcode/comutl.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: comutl.c,v 1.27 1993/09/11 21:27:44 gjr Exp $
+$Id: comutl.c,v 1.28 1993/10/26 02:58:01 gjr Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -191,14 +191,14 @@ DEFINE_PRIMITIVE ("DECLARE-COMPILED-CODE-BLOCK",
 		  Prim_declare_compiled_code_block, 1, 1,
   "Ensure cache coherence for a compiled-code block newly constructed.")
 {
-  extern void EXFUN (declare_compiled_code, (SCHEME_OBJECT));
+  extern void EXFUN (declare_compiled_code_block, (SCHEME_OBJECT));
   SCHEME_OBJECT new_cc_block;
   PRIMITIVE_HEADER (1);
 
   new_cc_block = (ARG_REF (1));
   if ((OBJECT_TYPE (new_cc_block)) != TC_COMPILED_CODE_BLOCK)
     error_wrong_type_arg (1);
-  declare_compiled_code (new_cc_block);
+  declare_compiled_code_block (new_cc_block);
   PRIMITIVE_RETURN (SHARP_T);
 }
 
diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c
index 0aef3e918..cb7be4dca 100644
--- a/v8/src/microcode/cmpint.c
+++ b/v8/src/microcode/cmpint.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: cmpint.c,v 1.72 1993/09/12 05:18:38 gjr Exp $
+$Id: cmpint.c,v 1.73 1993/10/26 02:57:43 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -284,7 +284,7 @@ extern C_UTILITY void
   EXFUN (store_variable_cache,
 	 (SCHEME_OBJECT extension, SCHEME_OBJECT block, long offset)),
   EXFUN (compiled_entry_type, (SCHEME_OBJECT entry, long *buffer)),
-  EXFUN (declare_compiled_code, (SCHEME_OBJECT block));
+  EXFUN (declare_compiled_code_block, (SCHEME_OBJECT block));
 
 extern C_TO_SCHEME long
   EXFUN (enter_compiled_expression, (void)),
@@ -2410,7 +2410,7 @@ DEFUN (compiled_entry_type,
 }
 
 void
-DEFUN (declare_compiled_code, (block), SCHEME_OBJECT block)
+DEFUN (declare_compiled_code_block, (block), SCHEME_OBJECT block)
 {
   SCHEME_OBJECT * block_addr = (OBJECT_ADDRESS (block));
 
@@ -3169,7 +3169,7 @@ struct util_descriptor_s utility_descriptor_table[] =
   UTLD(compiled_entry_closure_p),
   UTLD(compiled_closure_to_entry),
   UTLD(compiled_entry_type),
-  UTLD(declare_compiled_code),
+  UTLD(declare_compiled_code_block),
   UTLD(store_variable_cache),
   UTLD(extract_variable_cache),
   UTLD(extract_uuo_link),
@@ -3551,7 +3551,7 @@ extern void
   EXFUN (store_variable_cache,
 	 (SCHEME_OBJECT extension, SCHEME_OBJECT block, long offset)),
   EXFUN (compiled_entry_type, (SCHEME_OBJECT entry, long *buffer)),
-  EXFUN (declare_compiled_code, (SCHEME_OBJECT block));
+  EXFUN (declare_compiled_code_block, (SCHEME_OBJECT block));
 
 /* Breakpoint stuff. */
 
@@ -3746,7 +3746,7 @@ DEFUN (compiled_closure_to_entry, (entry), SCHEME_OBJECT entry)
 }
 
 void
-DEFUN (declare_compiled_code, (block), SCHEME_OBJECT block)
+DEFUN (declare_compiled_code_block, (block), SCHEME_OBJECT block)
 {
   return;
 }
-- 
2.25.1