[m-rev.] diff: another MR_hash_string fix

[Fergus Henderson]

Estimated hours taken: 0.5
Branches: main, gcc_3_3

mercury-gcc/mercury-gcc.c:
	Fix a cut-and-paste error in the definition of MR_hash_string.
	It should only have one argument, not two.

Workspace: /home/ceres/fjh/ws-gcc-basic-improvements-patched
Index: mercury-gcc/mercury-gcc.c
===================================================================
RCS file: /home/mercury1/repository/mercury-gcc/mercury-gcc.c,v
retrieving revision 1.31.2.4
diff -u -d -r1.31.2.4 mercury-gcc.c
--- mercury-gcc/mercury-gcc.c	19 Sep 2002 16:40:51 -0000	1.31.2.4
+++ mercury-gcc/mercury-gcc.c	27 Sep 2002 06:41:20 -0000
@@ -1583,11 +1583,9 @@
     = builtin_function ("__builtin_strcmp", strcmp_function_type,
 		        BUILT_IN_STRCMP, BUILT_IN_NORMAL, "strcmp", NULL);
 
-  /* Declare `int MR_hash_string(const char *, const char *);'.  */
+  /* Declare `int MR_hash_string(const char *);'.  */
   hash_string_function_param_types
-    = tree_cons (NULL_TREE, const_string_type_node,
-		 tree_cons (NULL_TREE, const_string_type_node,
-				       no_more_params));
+    = tree_cons (NULL_TREE, const_string_type_node, no_more_params);
   hash_string_function_type
     = build_function_type (integer_type_node, hash_string_function_param_types);
   merc_hash_string_function_node

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------