[svn:parrot] r49756 - branches/gsoc_nci/src/pmc

[plobsing at svn.parrot.org]

Author: plobsing
Date: Sun Oct 31 15:37:45 2010
New Revision: 49756
URL: https://trac.parrot.org/parrot/changeset/49756

Log:
dead variables and simplify memory free

Modified:
   branches/gsoc_nci/src/pmc/nci.pmc

Modified: branches/gsoc_nci/src/pmc/nci.pmc
==============================================================================
--- branches/gsoc_nci/src/pmc/nci.pmc	Sun Oct 31 15:26:18 2010	(r49755)
+++ branches/gsoc_nci/src/pmc/nci.pmc	Sun Oct 31 15:37:45 2010	(r49756)
@@ -411,13 +411,10 @@
         Parrot_NCI_attributes * const nci_info    = PARROT_NCI(SELF);
         char                         *sig_str;
         PMC                          *cont;
-        INTVAL                        return_size = sizeof (void*);
         PMC                          *ctx         = CURRENT_CONTEXT(interp);
         PMC                          *call_object = Parrot_pcc_get_signature(interp, ctx);
         void (*func)(void*,void*,void*); /* a function pointer for our function to call */
 
-        PMC *positional, *arg_iter;
-        STRING *void_return;
         void **values; 
         parrot_var_t *pcc_arg;
         void **translation_pointers = NULL; /* Data translation pointers, used to hold values
@@ -626,8 +623,7 @@
                 }
             }
 
-            if (pcc_arg)
-                mem_gc_free(interp, pcc_arg); 
+            mem_gc_free(interp, pcc_arg); 
         }
 
         /*
@@ -757,15 +753,9 @@
             }
         }
     
-        if (nci_info->arity > 0 && middle_man) {
-            mem_sys_free(middle_man);
-        }
-        if (return_data) {
-            mem_sys_free(return_data);
-        }
-        if (values) {
-            mem_sys_free(values);
-        }
+        mem_sys_free(middle_man);
+        mem_sys_free(return_data);
+        mem_sys_free(values);
 
         cont = INTERP->current_cont;