[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / compiler / yaccParser / id.c

diff --git a/ghc/compiler/yaccParser/id.c b/ghc/compiler/yaccParser/id.c
index 0dfd419..72e2fca 100644 (file)
--- a/ghc/compiler/yaccParser/id.c
+++ b/ghc/compiler/yaccParser/id.c
@@ -14,6 +14,7 @@
 #include "utils.h"
 
 /* partain: special version for strings that may have NULs (etc) in them
+   (used in UgenUtil.lhs)
 */
 long
 get_hstring_len(hs)
@@ -137,8 +138,7 @@ hash_index(ident)
   The hash function.  Returns 0 for Null strings.
 */
 
-static unsigned hash_fn(ident)
-char *ident;
+static unsigned hash_fn(char *ident)
 {
   unsigned len = (unsigned) strlen(ident);
   unsigned res;