[svn:parrot] r46384 - in trunk: lib/Parrot/Pmc2c src

jimmy at svn.parrot.org jimmy at svn.parrot.org
Fri May 7 08:02:46 UTC 2010


Author: jimmy
Date: Fri May  7 08:02:45 2010
New Revision: 46384
URL: https://trac.parrot.org/parrot/changeset/46384

Log:
removed unused code and consting

Modified:
   trunk/lib/Parrot/Pmc2c/PCCMETHOD.pm
   trunk/src/hll.c
   trunk/src/library.c

Modified: trunk/lib/Parrot/Pmc2c/PCCMETHOD.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/PCCMETHOD.pm	Fri May  7 07:12:20 2010	(r46383)
+++ trunk/lib/Parrot/Pmc2c/PCCMETHOD.pm	Fri May  7 08:02:45 2010	(r46384)
@@ -415,7 +415,7 @@
     PMC * const _ctx         = CURRENT_CONTEXT(interp);
     PMC * const _ccont       = Parrot_pcc_get_continuation(interp, _ctx);
     PMC * const _call_object = Parrot_pcc_get_signature(interp, _ctx);
-    PMC * _ret_object        = PMCNULL;
+    PMC * _ret_object;
 
     { /* BEGIN PARMS SCOPE */
 END

Modified: trunk/src/hll.c
==============================================================================
--- trunk/src/hll.c	Fri May  7 07:12:20 2010	(r46383)
+++ trunk/src/hll.c	Fri May  7 08:02:45 2010	(r46384)
@@ -200,9 +200,8 @@
 {
     ASSERT_ARGS(Parrot_register_HLL_lib)
     PMC   *hll_info = interp->HLL_info;
-    INTVAL nelements, i;
-
-    nelements = VTABLE_elements(interp, hll_info);
+    const INTVAL nelements = VTABLE_elements(interp, hll_info);
+    INTVAL i;
 
     for (i = 0; i < nelements; ++i) {
         PMC * const entry    = VTABLE_get_pmc_keyed_int(interp, hll_info, i);

Modified: trunk/src/library.c
==============================================================================
--- trunk/src/library.c	Fri May  7 07:12:20 2010	(r46383)
+++ trunk/src/library.c	Fri May  7 08:02:45 2010	(r46384)
@@ -505,8 +505,7 @@
     ASSERT_ARGS(path_concat)
     STRING* join;
 
-    join = l_path;
-    join = path_guarantee_trailing_separator(interp, join);
+    join = path_guarantee_trailing_separator(interp, l_path);
     join = Parrot_str_concat(interp, join, r_path);
 
     return join;
@@ -530,9 +529,7 @@
 try_load_path(PARROT_INTERP, ARGMOD(STRING* path))
 {
     ASSERT_ARGS(try_load_path)
-    STRING *final;
-
-    final = path_finalize(interp, path);
+    STRING * const final = path_finalize(interp, path);
 
     if (Parrot_stat_info_intval(interp, final, STAT_EXISTS)) {
         return final;


More information about the parrot-commits mailing list