# HG changeset patch # User Juanma Barranquero # Date 1278244288 -7200 # Node ID 907fcf8bd2efda1cbb4f2ef55a0e89efeb6839b6 # Parent 89fa0d8c2e83d2f3c2630822600f3cd67912ff4a Fix prototypes. * dired.c (file_name_completion_stat): Use DIRENTRY, not struct dirent. * fileio.c (read_non_regular, read_non_regular_quit): Pass Lisp_Object, as required by internal_condition_case_1. * regex.c (bcmp_translate): Use RE_TRANSLATE_TYPE, not Lisp_Object. (analyse_first): Fix "const const". diff -r 89fa0d8c2e83 -r 907fcf8bd2ef src/ChangeLog --- a/src/ChangeLog Sun Jul 04 12:07:27 2010 +0200 +++ b/src/ChangeLog Sun Jul 04 13:51:28 2010 +0200 @@ -1,3 +1,13 @@ +2010-07-04 Juanma Barranquero + + Fix prototypes. + + * dired.c (file_name_completion_stat): Use DIRENTRY, not struct dirent. + * fileio.c (read_non_regular, read_non_regular_quit): Pass Lisp_Object, + as required by internal_condition_case_1. + * regex.c (bcmp_translate): Use RE_TRANSLATE_TYPE, not Lisp_Object. + (analyse_first): Fix "const const". + 2010-07-04 Dan Nicolaescu * alloc.c: Convert function definitions to standard C. diff -r 89fa0d8c2e83 -r 907fcf8bd2ef src/dired.c --- a/src/dired.c Sun Jul 04 12:07:27 2010 +0200 +++ b/src/dired.c Sun Jul 04 13:51:28 2010 +0200 @@ -472,7 +472,7 @@ return file_name_completion (file, directory, 1, 0, Qnil); } -static int file_name_completion_stat (Lisp_Object dirname, struct dirent *dp, struct stat *st_addr); +static int file_name_completion_stat (Lisp_Object dirname, DIRENTRY *dp, struct stat *st_addr); Lisp_Object Qdefault_directory; Lisp_Object @@ -839,7 +839,7 @@ } static int -file_name_completion_stat (Lisp_Object dirname, struct dirent *dp, struct stat *st_addr) +file_name_completion_stat (Lisp_Object dirname, DIRENTRY *dp, struct stat *st_addr) { int len = NAMLEN (dp); int pos = SCHARS (dirname); diff -r 89fa0d8c2e83 -r 907fcf8bd2ef src/fileio.c --- a/src/fileio.c Sun Jul 04 12:07:27 2010 +0200 +++ b/src/fileio.c Sun Jul 04 13:51:28 2010 +0200 @@ -3248,12 +3248,12 @@ /* Read from a non-regular file. - Read non_regular_trytry bytes max from non_regular_fd. + Read non_regular_nbytes bytes max from non_regular_fd. Non_regular_inserted specifies where to put the read bytes. Value is the number of bytes read. */ static Lisp_Object -read_non_regular (void) +read_non_regular (Lisp_Object ignored) { EMACS_INT nbytes; @@ -3271,7 +3271,7 @@ in insert-file-contents. */ static Lisp_Object -read_non_regular_quit (void) +read_non_regular_quit (Lisp_Object ignored) { return Qnil; } diff -r 89fa0d8c2e83 -r 907fcf8bd2ef src/regex.c --- a/src/regex.c Sun Jul 04 12:07:27 2010 +0200 +++ b/src/regex.c Sun Jul 04 13:51:28 2010 +0200 @@ -3984,7 +3984,7 @@ Return -1 if fastmap was not updated accurately. */ static int -analyse_first (const re_char *p, const re_char *pend, char *fastmap, const const int multibyte) +analyse_first (const re_char *p, const re_char *pend, char *fastmap, const int multibyte) { int j, k; boolean not; @@ -6385,7 +6385,8 @@ bytes; nonzero otherwise. */ static int -bcmp_translate (const re_char *s1, const re_char *s2, register int len, Lisp_Object translate, const const int target_multibyte) +bcmp_translate (const re_char *s1, const re_char *s2, register int len, + RE_TRANSLATE_TYPE translate, const int target_multibyte) { register re_char *p1 = s1, *p2 = s2; re_char *p1_end = s1 + len;