[svn:parrot] r45557 - branches/immutable_strings_part1/src/string

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Apr 11 01:18:09 2010
New Revision: 45557
URL: https://trac.parrot.org/parrot/changeset/45557

Log:
Set result hashval to 0 in case-changing functions.

Modified:
   branches/immutable_strings_part1/src/string/api.c

Modified: branches/immutable_strings_part1/src/string/api.c
==============================================================================
--- branches/immutable_strings_part1/src/string/api.c	Sun Apr 11 01:17:58 2010	(r45556)
+++ branches/immutable_strings_part1/src/string/api.c	Sun Apr 11 01:18:09 2010	(r45557)
@@ -2652,7 +2652,9 @@
             "Can't upcase NULL string");
     }
     else {
-        return CHARSET_UPCASE(interp, s);
+        STRING * res = CHARSET_UPCASE(interp, s);
+        res->hashval = 0;
+        return res;
     }
 }
 
@@ -2681,7 +2683,9 @@
             "Can't downcase NULL string");
     }
     else {
-        return CHARSET_DOWNCASE(interp, s);
+        STRING * res = CHARSET_DOWNCASE(interp, s);
+        res->hashval = 0;
+        return res;
     }
 }
 
@@ -2709,7 +2713,9 @@
             "Can't titlecase NULL string");
     }
     else {
-        return CHARSET_TITLECASE(interp, s);
+        STRING * res = CHARSET_TITLECASE(interp, s);
+        res->hashval = 0;
+        return res;
     }
 }