X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FyaccParser%2Fid.c;h=72e2fca205595762f567d7be42ef86ef761c4de0;hb=b52838bcf54a3d5d07cf29f17f3af6f584fc0f4e;hp=0dfd419f777554c1d523ed64c5302f1ee1a1e354;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;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;