[svn:parrot] r41067 - trunk/src

[whiteknight at svn.parrot.org]

Author: whiteknight
Date: Sun Sep  6 13:20:27 2009
New Revision: 41067
URL: https://trac.parrot.org/parrot/changeset/41067

Log:
[cage] a few small cleanups to sub.c

Modified:
   trunk/src/sub.c

Modified: trunk/src/sub.c
==============================================================================
--- trunk/src/sub.c	Sun Sep  6 13:04:17 2009	(r41066)
+++ trunk/src/sub.c	Sun Sep  6 13:20:27 2009	(r41067)
@@ -99,7 +99,6 @@
         ctx  = Parrot_pcc_get_caller_ctx(interp, ctx);
         cont = Parrot_pcc_get_continuation(interp, ctx);
     }
-
 }
 
 /*
@@ -186,7 +185,7 @@
 PARROT_EXPORT
 int
 Parrot_Context_get_info(PARROT_INTERP, ARGIN(PMC *ctx),
-                    ARGOUT(Parrot_Context_info *info))
+    ARGOUT(Parrot_Context_info *info))
 {
     ASSERT_ARGS(Parrot_Context_get_info)
     Parrot_Sub_attributes *sub;
@@ -450,7 +449,7 @@
 parrot_new_closure(PARROT_INTERP, ARGIN(PMC *sub_pmc))
 {
     ASSERT_ARGS(parrot_new_closure)
-    PMC        * const clos_pmc = VTABLE_clone(interp, sub_pmc);
+    PMC * const clos_pmc = VTABLE_clone(interp, sub_pmc);
     Parrot_capture_lex(interp, clos_pmc);
     return clos_pmc;
 }
@@ -470,16 +469,12 @@
 Parrot_continuation_check(PARROT_INTERP, ARGIN(const PMC *pmc))
 {
     ASSERT_ARGS(Parrot_continuation_check)
-
-    PMC *to_ctx       = PARROT_CONTINUATION(pmc)->to_ctx;
-    PMC *from_ctx     = CURRENT_CONTEXT(interp);
-
+    PMC * const to_ctx       = PARROT_CONTINUATION(pmc)->to_ctx;
     if (PMC_IS_NULL(to_ctx))
         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,
                        "Continuation invoked after deactivation.");
 }
 
-
 /*
 
 =item C<void Parrot_continuation_rewind_environment(PARROT_INTERP, PMC *pmc)>
@@ -527,8 +522,7 @@
 void *
 Parrot_get_sub_pmc_from_subclass(PARROT_INTERP, ARGIN(PMC *subclass)) {
     ASSERT_ARGS(Parrot_get_sub_pmc_from_subclass)
-    PMC        *key, *sub_pmc;
-    Parrot_Sub_attributes *sub;
+    PMC *key, *sub_pmc;
 
     /* Ensure we really do have a subclass of sub. */
     if (VTABLE_isa(interp, subclass, CONST_STRING(interp, "Sub"))) {