[svn:parrot] r45411 - in trunk: include/parrot lib/Parrot src/string

[petdance at svn.parrot.org]

Author: petdance
Date: Wed Apr  7 05:16:23 2010
New Revision: 45411
URL: https://trac.parrot.org/parrot/changeset/45411

Log:
headerizer now supports PARROT_HOT and PARROT_COLD

Modified:
   trunk/include/parrot/string_funcs.h
   trunk/lib/Parrot/Headerizer.pm
   trunk/src/string/api.c

Modified: trunk/include/parrot/string_funcs.h
==============================================================================
--- trunk/include/parrot/string_funcs.h	Wed Apr  7 04:58:51 2010	(r45410)
+++ trunk/include/parrot/string_funcs.h	Wed Apr  7 05:16:23 2010	(r45411)
@@ -249,6 +249,7 @@
         __attribute__nonnull__(3);
 
 PARROT_EXPORT
+PARROT_HOT
 PARROT_PURE_FUNCTION
 INTVAL Parrot_str_is_null(SHIM_INTERP, ARGIN_NULLOK(const STRING *s));
 
@@ -496,6 +497,7 @@
         __attribute__nonnull__(2);
 
 PARROT_EXPORT
+PARROT_HOT
 PARROT_PURE_FUNCTION
 INTVAL STRING_is_null(SHIM_INTERP, ARGIN_NULLOK(const STRING *s));
 

Modified: trunk/lib/Parrot/Headerizer.pm
==============================================================================
--- trunk/lib/Parrot/Headerizer.pm	Wed Apr  7 04:58:51 2010	(r45410)
+++ trunk/lib/Parrot/Headerizer.pm	Wed Apr  7 05:16:23 2010	(r45411)
@@ -63,6 +63,8 @@
     PARROT_DOES_NOT_RETURN
     PARROT_MALLOC
     PARROT_OBSERVER
+    PARROT_HOT
+    PARROT_COLD
 );
 
 =item C<extract_function_declarations($text)>
@@ -237,7 +239,7 @@
     my $function_decl = shift;
 
     # strip out any PARROT_* function modifiers
-    foreach my $key (%valid_macros) {
+    foreach my $key (keys %valid_macros) {
         $function_decl =~ s/^$key$//m;
     }
 

Modified: trunk/src/string/api.c
==============================================================================
--- trunk/src/string/api.c	Wed Apr  7 04:58:51 2010	(r45410)
+++ trunk/src/string/api.c	Wed Apr  7 05:16:23 2010	(r45411)
@@ -82,6 +82,7 @@
 */
 
 PARROT_EXPORT
+PARROT_HOT
 PARROT_PURE_FUNCTION
 INTVAL
 Parrot_str_is_null(SHIM_INTERP, ARGIN_NULLOK(const STRING *s))
@@ -102,6 +103,7 @@
 */
 
 PARROT_EXPORT
+PARROT_HOT
 PARROT_PURE_FUNCTION
 INTVAL
 STRING_is_null(SHIM_INTERP, ARGIN_NULLOK(const STRING *s))