[svn:parrot] r46428 - in trunk/src: call ops

[jimmy at svn.parrot.org]

Author: jimmy
Date: Sun May  9 04:58:19 2010
New Revision: 46428
URL: https://trac.parrot.org/parrot/changeset/46428

Log:
removed unused value and consting

Modified:
   trunk/src/call/args.c
   trunk/src/ops/core.ops

Modified: trunk/src/call/args.c
==============================================================================
--- trunk/src/call/args.c	Sun May  9 04:49:19 2010	(r46427)
+++ trunk/src/call/args.c	Sun May  9 04:58:19 2010	(r46428)
@@ -759,11 +759,11 @@
     ASSERT_ARGS(fill_params)
     INTVAL *raw_params;
     PMC    *named_used_list = PMCNULL;
-    INTVAL  param_count     = 0;
     INTVAL  param_index     = 0;
     INTVAL  arg_index       = 0;
     INTVAL  named_count     = 0;
     INTVAL  err_check       = 0;
+    INTVAL  param_count;
     INTVAL  positional_args;
 
     GETATTR_FixedIntegerArray_size(interp, raw_sig, param_count);

Modified: trunk/src/ops/core.ops
==============================================================================
--- trunk/src/ops/core.ops	Sun May  9 04:49:19 2010	(r46427)
+++ trunk/src/ops/core.ops	Sun May  9 04:58:19 2010	(r46428)
@@ -478,14 +478,10 @@
 op set_args(inconst PMC) :flow {
     opcode_t * const raw_args = CUR_OPCODE;
     PMC * const signature = $1;
-    PMC * call_sig;
-    INTVAL argc;
-
-    call_sig = Parrot_pcc_build_sig_object_from_op(interp,
+    PMC * const call_sig = Parrot_pcc_build_sig_object_from_op(interp,
             PMCNULL, signature, raw_args);
+    const INTVAL argc = VTABLE_elements(interp, signature);
     Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), call_sig);
-
-    argc = VTABLE_elements(interp, signature);
     goto OFFSET(argc + 2);
 }