From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 18 Aug 2010 16:30:25 +0000 (+0000)
Subject: Add a couple more consts to debug.c.
X-Git-Tag: 20101212-Gtk~94
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d1a64d890f16fccc1ce9c924fe0f5b1e81689b1c;p=mit-scheme.git

Add a couple more consts to debug.c.
---

diff --git a/src/microcode/debug.c b/src/microcode/debug.c
index 39e93943e..98d60efb5 100644
--- 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 73554f60b..4d0b24918 100644
--- 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);