[svn:parrot] r38581 - trunk/src

[petdance at svn.parrot.org]

Author: petdance
Date: Fri May  8 03:17:20 2009
New Revision: 38581
URL: https://trac.parrot.org/parrot/changeset/38581

Log:
removed some unused DECL_CONST_CAST and renamed a variable

Modified:
   trunk/src/sub.c

Modified: trunk/src/sub.c
==============================================================================
--- trunk/src/sub.c	Fri May  8 03:16:55 2009	(r38580)
+++ trunk/src/sub.c	Fri May  8 03:17:20 2009	(r38581)
@@ -351,7 +351,7 @@
         }
         else {
             PMC    *ns_array;
-            STRING *j = CONST_STRING(interp, ";");
+            STRING * const semicolon = CONST_STRING(interp, ";");
             STRING *res;
 
             /*
@@ -384,7 +384,7 @@
             if (sub->name)
                 VTABLE_push_string(interp, ns_array, sub->name);
 
-            res = Parrot_str_join(interp, j, ns_array);
+            res = Parrot_str_join(interp, semicolon, ns_array);
             Parrot_unblock_GC_mark(interp);
             return res;
         }
@@ -412,7 +412,6 @@
 {
     ASSERT_ARGS(Parrot_Context_get_info)
     Parrot_sub *sub;
-    DECL_CONST_CAST;
 
     /* set file/line/pc defaults */
     info->file     = CONST_STRING(interp, "(unknown file)");
@@ -512,7 +511,6 @@
 
     Parrot_block_GC_mark(interp);
     if (Parrot_Context_get_info(interp, ctx, &info)) {
-        DECL_CONST_CAST;
 
         res = Parrot_sprintf_c(interp,
             "%s '%Ss' pc %d (%Ss:%d)", msg,