[svn:parrot] r18834 - in trunk: include/parrot src

[petdance]

Author: petdance
Date: Tue Jun  5 19:48:41 2007
New Revision: 18834

Modified:
   trunk/include/parrot/pmc.h
   trunk/src/mmd.c
   trunk/src/pmc.c

Log:
Fixed broken consting

Modified: trunk/include/parrot/pmc.h
==============================================================================
--- trunk/include/parrot/pmc.h  (original)
+++ trunk/include/parrot/pmc.h  Tue Jun  5 19:48:41 2007
@@ -35,12 +35,13 @@
 PARROT_API PMC * pmc_new_noinit( Interp *interp, INTVAL base_type );
 PARROT_API INTVAL pmc_register( Interp* interp, STRING *name );
 PARROT_API PMC* pmc_reuse( Interp *interp,
-    PMC *pmc,
+    PMC *pmc /*NN*/,
     INTVAL new_type,
-    UINTVAL flags );
+    UINTVAL flags )
+        __attribute__nonnull__(2);
 
-PARROT_API INTVAL pmc_type( Interp* interp, const STRING *name );
-PARROT_API INTVAL pmc_type_p( Interp* interp, const PMC *name );
+PARROT_API INTVAL pmc_type( Interp* interp, STRING *name );
+PARROT_API INTVAL pmc_type_p( Interp* interp, PMC *name );
 /* HEADERIZER END: src/pmc.c */
 
 /* Internal use */

Modified: trunk/src/mmd.c
==============================================================================
--- trunk/src/mmd.c     (original)
+++ trunk/src/mmd.c     Tue Jun  5 19:48:41 2007
@@ -1158,7 +1158,7 @@
         PMC * const sig_elem = VTABLE_get_pmc_keyed_int(interp, multi_sig, i);
 
         if (sig_elem->vtable->base_type == enum_class_String) {
-            const STRING * const sig = VTABLE_get_string(interp, sig_elem);
+            STRING * const sig = VTABLE_get_string(interp, sig_elem);
             if (memcmp(sig->strstart, "__VOID", 6) == 0) {
                 PMC_int_val(ar)--;  /* XXX */
                 break;

Modified: trunk/src/pmc.c
==============================================================================
--- trunk/src/pmc.c     (original)
+++ trunk/src/pmc.c     Tue Jun  5 19:48:41 2007
@@ -365,7 +365,7 @@
 
 PARROT_API
 INTVAL
-pmc_type(Interp* interp, const STRING * const name)
+pmc_type(Interp* interp, STRING * const name)
 {
     PMC * const classname_hash = interp->class_hash;
     PMC * const item = (PMC *)VTABLE_get_pointer_keyed_str(interp, 
classname_hash, name);
@@ -387,7 +387,7 @@
 
 PARROT_API
 INTVAL
-pmc_type_p(Interp* interp, const PMC * const name)
+pmc_type_p(Interp* interp, PMC * const name)
 {
     PMC * const classname_hash = interp->class_hash;
     PMC * const item = (PMC *)VTABLE_get_pointer_keyed(interp, classname_hash, 
name);