develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34409 - trunk/src

From:
petdance
Date:
December 26, 2008 22:36
Subject:
[svn:parrot] r34409 - trunk/src
Message ID:
20081227063558.377ECCBA12@x12.develooper.com
Author: petdance
Date: Fri Dec 26 22:35:57 2008
New Revision: 34409

Modified:
   trunk/src/global.c
   trunk/src/hll.c
   trunk/src/inter_call.c

Log:
removing unused vars

Modified: trunk/src/global.c
==============================================================================
--- trunk/src/global.c	(original)
+++ trunk/src/global.c	Fri Dec 26 22:35:57 2008
@@ -101,10 +101,8 @@
 static PMC *
 internal_ns_keyed(PARROT_INTERP, ARGIN(PMC *base_ns), ARGIN(PMC *pmc_key), int flags)
 {
-    PMC *sub_ns;
     PMC *ns = base_ns;
     INTVAL i, n;
-    static const INTVAL max_intval = (INTVAL)((~(UINTVAL)0) >> 1); /*2s comp*/
 
     if (pmc_key->vtable->base_type == enum_class_String) {
         STRING *str_key = VTABLE_get_string(interp, pmc_key);
@@ -118,6 +116,8 @@
 
     for (i = 0; i < n; ++i) {
         STRING *part;
+        PMC *sub_ns;
+
         if (!pmc_key)
             Parrot_ex_throw_from_c_args(interp, NULL, 1,
                 "Passed a NULL pmc_key into VTABLE_get_string_keyed_int");

Modified: trunk/src/hll.c
==============================================================================
--- trunk/src/hll.c	(original)
+++ trunk/src/hll.c	Fri Dec 26 22:35:57 2008
@@ -344,8 +344,7 @@
 Parrot_register_HLL_type(PARROT_INTERP, INTVAL hll_id,
         INTVAL core_type, INTVAL hll_type)
 {
-    PMC  *entry, *type_hash, *instantiated;
-    Hash *hash;
+    PMC  *entry, *type_hash;
     PMC  *hll_info = interp->HLL_info;
     const INTVAL n = VTABLE_elements(interp, hll_info);
 

Modified: trunk/src/inter_call.c
==============================================================================
--- trunk/src/inter_call.c	(original)
+++ trunk/src/inter_call.c	Fri Dec 26 22:35:57 2008
@@ -2625,7 +2625,6 @@
     /* args_sig, results_sig */
     PMC *sigs[2];
 
-    const char *x;
     const char *ret_x  = NULL;
 
     indexes[0] = arg_indexes;



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About