[svn:parrot] r45903 - branches/string_consting/src

bacek at svn.parrot.org bacek at svn.parrot.org
Thu Apr 22 13:03:09 UTC 2010


Author: bacek
Date: Thu Apr 22 13:03:08 2010
New Revision: 45903
URL: https://trac.parrot.org/parrot/changeset/45903

Log:
Constring src/packfile.c

Modified:
   branches/string_consting/src/packfile.c

Modified: branches/string_consting/src/packfile.c
==============================================================================
--- branches/string_consting/src/packfile.c	Thu Apr 22 11:33:57 2010	(r45902)
+++ branches/string_consting/src/packfile.c	Thu Apr 22 13:03:08 2010	(r45903)
@@ -61,7 +61,7 @@
         __attribute__nonnull__(2);
 
 static void compile_or_load_file(PARROT_INTERP,
-    ARGIN(STRING *path),
+    ARGIN(const STRING *path),
     enum_runtime_ft file_type)
         __attribute__nonnull__(1)
         __attribute__nonnull__(2);
@@ -4676,7 +4676,7 @@
 
 /*
 
-=item C<static void compile_or_load_file(PARROT_INTERP, STRING *path,
+=item C<static void compile_or_load_file(PARROT_INTERP, const STRING *path,
 enum_runtime_ft file_type)>
 
 Either load a bytecode file and append it to the current packfile directory, or
@@ -4687,7 +4687,7 @@
 */
 
 static void
-compile_or_load_file(PARROT_INTERP, ARGIN(STRING *path),
+compile_or_load_file(PARROT_INTERP, ARGIN(const STRING *path),
         enum_runtime_ft file_type)
 {
     ASSERT_ARGS(compile_or_load_file)
@@ -4747,8 +4747,12 @@
 Parrot_load_language(PARROT_INTERP, ARGIN_NULLOK(STRING *lang_name))
 {
     ASSERT_ARGS(Parrot_load_language)
-    STRING *wo_ext, *file_str, *path, *pbc;
-    STRING *found_path, *found_ext;
+    const STRING *wo_ext;
+    const STRING *file_str;
+    const STRING *path;
+    const STRING *pbc;
+    const STRING *found_path;
+    const STRING *found_ext;
     INTVAL name_length;
     enum_runtime_ft file_type;
     PMC *is_loaded_hash;
@@ -4855,8 +4859,12 @@
 Parrot_load_bytecode(PARROT_INTERP, ARGIN_NULLOK(STRING *file_str))
 {
     ASSERT_ARGS(Parrot_load_bytecode)
-    STRING         *wo_ext, *ext, *pbc, *path;
-    STRING         *found_path, *found_ext;
+    const STRING   *wo_ext;
+    const STRING   *ext;
+    const STRING   *pbc;
+    const STRING   *path;
+    const STRING   *found_path;
+    const STRING   *found_ext;
     PMC            *is_loaded_hash;
     enum_runtime_ft file_type;
 


More information about the parrot-commits mailing list