Rename declare_compiled_code to declare_compiled_code_block.

The name declare_compiled_code was already in use by the C back end.

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index 0aef3e91894f8a1ca5f4c09df2226c0aafe45fcf..cb7be4dcaa373109e75873c2c12fe73b5845fbe6 100644 (file)
--- 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 a254f23ae5810818687bd091032a3ce2c839fc68..03c6b3c7c51f1ec1f99c5b05807aa1bcf169830e 100644 (file)
--- 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);
 }
 \f

diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c
index 0aef3e91894f8a1ca5f4c09df2226c0aafe45fcf..cb7be4dcaa373109e75873c2c12fe73b5845fbe6 100644 (file)
--- 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;
 }