Commit d5b28a9d authored by Andreas Schwab's avatar Andreas Schwab
Browse files

(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.
parent 526a2be7
...@@ -1652,8 +1652,8 @@ read1 (readcharfun, pch, first_in_list) ...@@ -1652,8 +1652,8 @@ read1 (readcharfun, pch, first_in_list)
c = read_escape (readcharfun); c = read_escape (readcharfun);
if (! SINGLE_BYTE_CHAR_P ((c & ~CHAR_META))) if (! SINGLE_BYTE_CHAR_P ((c & ~CHAR_META)))
{ {
char workbuf[4]; unsigned char workbuf[4];
char *str = workbuf; unsigned char *str = workbuf;
int length; int length;
length = non_ascii_char_to_string (c, workbuf, &str); length = non_ascii_char_to_string (c, workbuf, &str);
...@@ -2296,7 +2296,7 @@ hash_string (ptr, len) ...@@ -2296,7 +2296,7 @@ hash_string (ptr, len)
void void
map_obarray (obarray, fn, arg) map_obarray (obarray, fn, arg)
Lisp_Object obarray; Lisp_Object obarray;
int (*fn) (); void (*fn) P_ ((Lisp_Object, Lisp_Object));
Lisp_Object arg; Lisp_Object arg;
{ {
register int i; register int i;
...@@ -2316,6 +2316,7 @@ map_obarray (obarray, fn, arg) ...@@ -2316,6 +2316,7 @@ map_obarray (obarray, fn, arg)
} }
} }
void
mapatoms_1 (sym, function) mapatoms_1 (sym, function)
Lisp_Object sym, function; Lisp_Object sym, function;
{ {
...@@ -2514,6 +2515,7 @@ defvar_kboard (namestring, offset) ...@@ -2514,6 +2515,7 @@ defvar_kboard (namestring, offset)
so we can see if the site changed it later during dumping. */ so we can see if the site changed it later during dumping. */
static Lisp_Object dump_path; static Lisp_Object dump_path;
void
init_lread () init_lread ()
{ {
char *normal; char *normal;
...@@ -2687,6 +2689,7 @@ init_lread () ...@@ -2687,6 +2689,7 @@ init_lread ()
/* Print a warning, using format string FORMAT, that directory DIRNAME /* Print a warning, using format string FORMAT, that directory DIRNAME
does not exist. Print it on stderr and put it in *Message*. */ does not exist. Print it on stderr and put it in *Message*. */
void
dir_warning (format, dirname) dir_warning (format, dirname)
char *format; char *format;
Lisp_Object dirname; Lisp_Object dirname;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment