X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FyaccParser%2Fid.c;fp=ghc%2Fcompiler%2FyaccParser%2Fid.c;h=72e2fca205595762f567d7be42ef86ef761c4de0;hb=10521d8418fd3a1cf32882718b5bd28992db36fd;hp=0dfd419f777554c1d523ed64c5302f1ee1a1e354;hpb=7fa716e248a1f11fa686965f57aebbb83b74fa7b;p=ghc-hetmet.git

diff --git a/ghc/compiler/yaccParser/id.c b/ghc/compiler/yaccParser/id.c
index 0dfd419..72e2fca 100644
--- 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;