[svn:parrot] r49294 - branches/string_macros/src

[nwellnhof at svn.parrot.org]

Author: nwellnhof
Date: Fri Sep 24 11:16:58 2010
New Revision: 49294
URL: https://trac.parrot.org/parrot/changeset/49294

Log:
[src] Make key_hash_STRING parameter const

Modified:
   branches/string_macros/src/hash.c

Modified: branches/string_macros/src/hash.c
==============================================================================
--- branches/string_macros/src/hash.c	Fri Sep 24 11:16:41 2010	(r49293)
+++ branches/string_macros/src/hash.c	Fri Sep 24 11:16:58 2010	(r49294)
@@ -141,10 +141,11 @@
 PARROT_WARN_UNUSED_RESULT
 PARROT_PURE_FUNCTION
 PARROT_INLINE
-static size_t key_hash_STRING(PARROT_INTERP, ARGMOD(STRING *s), size_t seed)
+static size_t key_hash_STRING(PARROT_INTERP,
+    ARGIN(const STRING *s),
+    size_t seed)
         __attribute__nonnull__(1)
-        __attribute__nonnull__(2)
-        FUNC_MODIFIES(*s);
+        __attribute__nonnull__(2);
 
 PARROT_CAN_RETURN_NULL
 static HashBucket * parrot_hash_get_bucket_string(PARROT_INTERP,
@@ -240,7 +241,8 @@
 
 /*
 
-=item C<static size_t key_hash_STRING(PARROT_INTERP, STRING *s, size_t seed)>
+=item C<static size_t key_hash_STRING(PARROT_INTERP, const STRING *s, size_t
+seed)>
 
 Returns the hashed value of the key C<value>.  See also string.c.
 
@@ -253,7 +255,7 @@
 PARROT_PURE_FUNCTION
 PARROT_INLINE
 static size_t
-key_hash_STRING(PARROT_INTERP, ARGMOD(STRING *s), size_t seed)
+key_hash_STRING(PARROT_INTERP, ARGIN(const STRING *s), size_t seed)
 {
     ASSERT_ARGS(key_hash_STRING)