qsort arg was wrong for ANSI C

1991-10-16 16:08:27 +00:00 · 1991-10-16 16:08:27 +00:00 · 19a47cfa52
parent 7d2b151fde
commit 19a47cfa52
1 changed files with 4 additions and 0 deletions
--- a/lang/fortran/comp/sysdep.c
+++ b/lang/fortran/comp/sysdep.c
@ -350,8 +350,12 @@ dsort(from, to)
 #else

 static int
+#ifdef __STDC__
+compare(const void *a, const void *b)
+#else
 compare(a,b)
 char *a, *b;
+#endif
 { return strcmp(*(char **)a, *(char **)b); }

 dsort(from, to)