Add a couple more consts to debug.c.

diff --git a/src/microcode/debug.c b/src/microcode/debug.c
index 39e93943e9eebf036418863b06ccdc8a4cdf7a9d..98d60efb5214c5d3f086f4513923bf3bfcedba2a 100644 (file)
--- a/src/microcode/debug.c
+++ b/src/microcode/debug.c
@@ -178,7 +178,7 @@ print_return_name (outf_channel stream, SCHEME_OBJECT Ptr)
 }
 
 void
-Print_Return (char * String)
+Print_Return (const char * String)
 {
   outf_error ("%s: ", String);
   print_return_name (ERROR_OUTPUT, GET_RET);
@@ -826,7 +826,7 @@ find_flag (int flag_number)
     }
 }
 
-static char *
+static const char *
 flag_name (int flag_number)
 {
   switch (flag_number)

diff --git a/src/microcode/extern.h b/src/microcode/extern.h
index 73554f60b7657e87f160289be3a94bcf6a2537c7..4d0b249182ceae34f7cfe45daf49f2b891e064cc 100644 (file)
--- a/src/microcode/extern.h
+++ b/src/microcode/extern.h
@@ -350,7 +350,7 @@ extern void Back_Trace (outf_channel);
 extern void Debug_Stack_Trace (void);
 extern void Debug_Print (SCHEME_OBJECT, bool);
 extern void Show_Env (SCHEME_OBJECT);
-extern void Print_Return (char *);
+extern void Print_Return (const char *);
 extern void Print_Expression (SCHEME_OBJECT, const char *);
 extern void Print_Primitive (SCHEME_OBJECT);