diff --git a/gcc/ch/ChangeLog b/gcc/ch/ChangeLog
index 2e5d95f500b..529c93c770e 100644
--- a/gcc/ch/ChangeLog
+++ b/gcc/ch/ChangeLog
@@ -1,3 +1,10 @@
+1999-08-09  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+        * actions.c (lang_identify): Constify a char*.
+
+        * lang.c (chill_print_error_function): Likewise.
+        (lang_init): Remove redundant prototype for `print_error_function'.
+
 1999-07-25  Richard Henderson  <rth@cygnus.com>
 
 	* decl.c (va_list_type_node): New.
diff --git a/gcc/ch/actions.c b/gcc/ch/actions.c
index 4104ce7a86b..e44e215c6f7 100644
--- a/gcc/ch/actions.c
+++ b/gcc/ch/actions.c
@@ -64,7 +64,7 @@ extern char *dump_base_name;
    grant file written, generating no code. */
 int grant_only_flag = 0;
 
-char *
+const char *
 lang_identify ()
 {
   return "chill";
diff --git a/gcc/ch/lang.c b/gcc/ch/lang.c
index 794c5921269..f09316b8a26 100644
--- a/gcc/ch/lang.c
+++ b/gcc/ch/lang.c
@@ -236,7 +236,7 @@ lang_decode_option (argc, argv)
 
 void
 chill_print_error_function (file)
-     char *file;
+     const char *file;
 {
   static tree last_error_function = NULL_TREE;
   static struct module *last_error_module = NULL;
@@ -283,8 +283,6 @@ incomplete_type_error (value, type)
 void
 lang_init ()
 {
-  extern void (*print_error_function) PROTO((char*));
-
   chill_real_input_filename = input_filename;
 
   /* the beginning of the file is a new line; check for # */