# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 880116876 0
# Node ID b7d23d2eded19293b8bcbf05df3ea12314ae853b
# Parent  bf0a54297d954d304db16e2d1a3c55446be1f8d6
(read1): Declare `workbuf' as unsigned char.
(dir_warning): Define as returning nothing.
(init_lread): Likewise.
(mapatoms_1): Likewise.
(map_obarray): Fix type of parameter FN.

diff -r bf0a54297d95 -r b7d23d2eded1 src/lread.c
--- a/src/lread.c	Fri Nov 21 12:49:52 1997 +0000
+++ b/src/lread.c	Fri Nov 21 12:54:36 1997 +0000
@@ -1652,8 +1652,8 @@
 		c = read_escape (readcharfun);
 		if (! SINGLE_BYTE_CHAR_P ((c & ~CHAR_META)))
 		  {
-		    char workbuf[4];
-		    char *str = workbuf;
+		    unsigned char workbuf[4];
+		    unsigned char *str = workbuf;
 		    int length;
 
 		    length = non_ascii_char_to_string (c, workbuf, &str);
@@ -2296,7 +2296,7 @@
 void
 map_obarray (obarray, fn, arg)
      Lisp_Object obarray;
-     int (*fn) ();
+     void (*fn) P_ ((Lisp_Object, Lisp_Object));
      Lisp_Object arg;
 {
   register int i;
@@ -2316,6 +2316,7 @@
     }
 }
 
+void
 mapatoms_1 (sym, function)
      Lisp_Object sym, function;
 {
@@ -2514,6 +2515,7 @@
    so we can see if the site changed it later during dumping.  */
 static Lisp_Object dump_path;
 
+void
 init_lread ()
 {
   char *normal;
@@ -2687,6 +2689,7 @@
 /* Print a warning, using format string FORMAT, that directory DIRNAME
    does not exist.  Print it on stderr and put it in *Message*.  */
 
+void
 dir_warning (format, dirname)
      char *format;
      Lisp_Object dirname;