[svn:parrot] r41809 - branches/pcc_reapply/src/call

[tene at svn.parrot.org]

Author: tene
Date: Sat Oct 10 22:13:08 2009
New Revision: 41809
URL: https://trac.parrot.org/parrot/changeset/41809

Log:
[pcc] two fixes from allison++

Modified:
   branches/pcc_reapply/src/call/args.c

Modified: branches/pcc_reapply/src/call/args.c
==============================================================================
--- branches/pcc_reapply/src/call/args.c	Sat Oct 10 21:46:03 2009	(r41808)
+++ branches/pcc_reapply/src/call/args.c	Sat Oct 10 22:13:08 2009	(r41809)
@@ -1369,7 +1369,6 @@
     INTVAL  result_count;
     INTVAL  positional_returns = 0; /* initialized by a loop later */
     INTVAL  i = 0;                  /* used by the initialization loop */
-    STRING *result_name     = NULL;
     INTVAL  return_index    = 0;
     INTVAL  return_subindex = 0;
     INTVAL  result_index    = 0;
@@ -1697,7 +1696,7 @@
         if (PMC_IS_NULL(named_return_list)) /* Only created if needed. */
             named_return_list = pmc_new(interp,
                     Parrot_get_ctx_HLL_type(interp, enum_class_Hash));
-        VTABLE_set_integer_keyed_str(interp, named_used_list, result_name, 1);
+        VTABLE_set_integer_keyed_str(interp, named_return_list, return_name, 1);
     }
 
     /* Now iterate over the named results, filling them from the