correctly annotate Parrot_set_config_hash_pmc input pointer

parrot · Apr 5, 2011 · bcce1b3 · bcce1b3
1 parent fa331ee
commit bcce1b3
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 6 deletions.
diff --git a/include/parrot/global_setup.h b/include/parrot/global_setup.h
@@ -36,10 +36,9 @@ void Parrot_gbl_set_config_hash_internal(
     unsigned int parrot_config_size)
         __attribute__nonnull__(1);
 
-void Parrot_set_config_hash_pmc(PARROT_INTERP, ARGMOD(PMC * config))
+void Parrot_set_config_hash_pmc(PARROT_INTERP, ARGIN(PMC *config))
         __attribute__nonnull__(1)
-        __attribute__nonnull__(2)
-        FUNC_MODIFIES(* config);
+        __attribute__nonnull__(2);
 
 #define ASSERT_ARGS_init_world __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp))

diff --git a/src/global_setup.c b/src/global_setup.c
@@ -79,7 +79,7 @@ Parrot_gbl_set_config_hash_internal(ARGIN(const unsigned char* parrot_config),
 
 /*
 
-=item C<void Parrot_set_config_hash_pmc(PARROT_INTERP, PMC * config)>
+=item C<void Parrot_set_config_hash_pmc(PARROT_INTERP, PMC *config)>
 
 Called by embed API with the pmc hash which will be used in subsequently created
 Interpreters.
@@ -89,7 +89,7 @@ Interpreters.
 */
 
 void
-Parrot_set_config_hash_pmc(PARROT_INTERP, ARGMOD(PMC * config))
+Parrot_set_config_hash_pmc(PARROT_INTERP, ARGIN(PMC *config))
 {
     ASSERT_ARGS(Parrot_set_config_hash_pmc)
     parrot_config_hash_global = config;
@@ -112,7 +112,7 @@ static void
 Parrot_gbl_set_config_hash_interpreter(PARROT_INTERP)
 {
     ASSERT_ARGS(Parrot_gbl_set_config_hash_interpreter)
-    PMC *iglobals = interp->iglobals;
+    PMC * const iglobals = interp->iglobals;
 
     PMC *config_hash = parrot_config_hash_global;
     if (config_hash == NULL)