[svn:parrot] r45286 - trunk/src/ops

petdance at svn.parrot.org petdance at svn.parrot.org
Mon Mar 29 20:06:11 UTC 2010


Author: petdance
Date: Mon Mar 29 20:06:11 2010
New Revision: 45286
URL: https://trac.parrot.org/parrot/changeset/45286

Log:
remove some premature consts

Modified:
   trunk/src/ops/pmc.ops
   trunk/src/ops/set.ops

Modified: trunk/src/ops/pmc.ops
==============================================================================
--- trunk/src/ops/pmc.ops	Mon Mar 29 20:05:07 2010	(r45285)
+++ trunk/src/ops/pmc.ops	Mon Mar 29 20:06:11 2010	(r45286)
@@ -60,7 +60,7 @@
     else {
         const INTVAL type = Parrot_pmc_get_type_str(interp, name);
         if (type <= 0) {
-            const opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
+            opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
                 EXCEPTION_NO_CLASS,
                 "Class '%Ss' not found", name);
             goto ADDRESS(dest);
@@ -80,7 +80,7 @@
     else {
         const INTVAL type = Parrot_pmc_get_type_str(interp, name);
         if (type <= 0) {
-            const opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
+            opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
                 EXCEPTION_NO_CLASS,
                 "Class '%Ss' not found", name);
             goto ADDRESS(dest);
@@ -98,7 +98,7 @@
     else {
         const INTVAL type = Parrot_pmc_get_type(interp, name_key);
         if (type <= 0) {
-            const opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
+            opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
                 EXCEPTION_NO_CLASS,
                 "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));
             goto ADDRESS(dest);
@@ -116,7 +116,7 @@
     else {
         const INTVAL type = Parrot_pmc_get_type(interp, name_key);
         if (type <= 0) {
-            const opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
+            opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
                 EXCEPTION_NO_CLASS,
                 "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));
             goto ADDRESS(dest);
@@ -151,7 +151,7 @@
     if (!PMC_IS_NULL(classobj))
         $1 = VTABLE_instantiate(interp, classobj, PMCNULL);
     else {
-        const opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
+        opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
             EXCEPTION_NO_CLASS,
             "Class '%Ss' not found", VTABLE_get_repr(interp, key));
         goto ADDRESS(dest);
@@ -169,7 +169,7 @@
     if (!PMC_IS_NULL(classobj))
         $1 = VTABLE_instantiate(interp, classobj, $3);
     else {
-        const opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
+        opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
             EXCEPTION_NO_CLASS,
             "Class '%Ss' not found", VTABLE_get_repr(interp, key));
         goto ADDRESS(dest);
@@ -231,10 +231,10 @@
 =cut
 
 op find_method(out PMC, invar PMC, in STR) :flow {
-    const opcode_t * const resume = expr NEXT();
+    opcode_t * const resume = expr NEXT();
     $1 = VTABLE_find_method(interp, $2, $3);
     if (PMC_IS_NULL($1) || !VTABLE_defined(interp, $1)) {
-        const opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, resume,
+        opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, resume,
             EXCEPTION_METHOD_NOT_FOUND,
             "Method '%Ss' not found for invocant of class '%Ss'", $3,
             VTABLE_get_string(interp, VTABLE_get_class(interp, $2)));

Modified: trunk/src/ops/set.ops
==============================================================================
--- trunk/src/ops/set.ops	Mon Mar 29 20:05:07 2010	(r45285)
+++ trunk/src/ops/set.ops	Mon Mar 29 20:06:11 2010	(r45286)
@@ -492,8 +492,8 @@
 
 inline op copy(inout PMC, invar PMC) :base_mem {
     if (PMC_IS_NULL($1)) {
-        const opcode_t * const dest = expr NEXT();
-        const opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, dest,
+        opcode_t * const dest = expr NEXT();
+        opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, dest,
                 EXCEPTION_NULL_REG_ACCESS, "Null PMC in copy");
         goto ADDRESS(handler);
     }


More information about the parrot-commits mailing list