[svn:parrot] r45904 - in branches/string_consting: include/parrot src

[bacek at svn.parrot.org]

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

Log:
More Consting src/library.c

Modified:
   branches/string_consting/include/parrot/library.h
   branches/string_consting/src/library.c

Modified: branches/string_consting/include/parrot/library.h
==============================================================================
--- branches/string_consting/include/parrot/library.h	Thu Apr 22 13:03:08 2010	(r45903)
+++ branches/string_consting/include/parrot/library.h	Thu Apr 22 13:03:23 2010	(r45904)
@@ -90,14 +90,13 @@
 PARROT_IGNORABLE_RESULT
 PARROT_CANNOT_RETURN_NULL
 const STRING * parrot_split_path_ext(PARROT_INTERP,
-    ARGMOD(STRING *in),
+    ARGIN(const STRING *in),
     ARGOUT(STRING const**wo_ext),
     ARGOUT(STRING const**ext))
         __attribute__nonnull__(1)
         __attribute__nonnull__(2)
         __attribute__nonnull__(3)
         __attribute__nonnull__(4)
-        FUNC_MODIFIES(*in)
         FUNC_MODIFIES(*wo_ext)
         FUNC_MODIFIES(*ext);
 

Modified: branches/string_consting/src/library.c
==============================================================================
--- branches/string_consting/src/library.c	Thu Apr 22 13:03:08 2010	(r45903)
+++ branches/string_consting/src/library.c	Thu Apr 22 13:03:23 2010	(r45904)
@@ -859,8 +859,8 @@
 
 /*
 
-=item C<const STRING * parrot_split_path_ext(PARROT_INTERP, STRING *in, STRING
-const**wo_ext, STRING const**ext)>
+=item C<const STRING * parrot_split_path_ext(PARROT_INTERP, const STRING *in,
+STRING const**wo_ext, STRING const**ext)>
 
 Split the pathstring C<in> into <path><filestem><ext>. Return the
 C<filestem> of the pathstring. Set C<wo_ext> to the part without
@@ -873,7 +873,7 @@
 PARROT_IGNORABLE_RESULT
 PARROT_CANNOT_RETURN_NULL
 const STRING *
-parrot_split_path_ext(PARROT_INTERP, ARGMOD(STRING *in),
+parrot_split_path_ext(PARROT_INTERP, ARGIN(const STRING *in),
         ARGOUT(STRING const**wo_ext), ARGOUT(STRING const**ext))
 {
     ASSERT_ARGS(parrot_split_path_ext)
@@ -891,7 +891,7 @@
             PObj_external_FLAG|PObj_constant_FLAG);
 
     const INTVAL len = Parrot_str_byte_length(interp, in);
-    STRING *stem;
+    const STRING *stem;
     INTVAL pos_sl, pos_dot;
 
     pos_sl = CHARSET_RINDEX(interp, in, slash1, len);