[svn:parrot] r46445 - trunk/compilers/imcc

[plobsing at svn.parrot.org]

Author: plobsing
Date: Sun May  9 21:26:57 2010
New Revision: 46445
URL: https://trac.parrot.org/parrot/changeset/46445

Log:
narrow variable scope

Modified:
   trunk/compilers/imcc/pbc.c

Modified: trunk/compilers/imcc/pbc.c
==============================================================================
--- trunk/compilers/imcc/pbc.c	Sun May  9 21:23:31 2010	(r46444)
+++ trunk/compilers/imcc/pbc.c	Sun May  9 21:26:57 2010	(r46445)
@@ -1269,10 +1269,6 @@
     IMC_Unit            * const unit  =
         IMCC_INFO(interp)->globals->cs->subs->unit;
 
-    INTVAL               type         =
-        (r->pcc_sub->yield) ?
-            enum_class_Coroutine : enum_class_Sub;
-
     int                  i;
     int                  ns_const = -1;
 
@@ -1314,7 +1310,8 @@
     }
     else {
         /* use a possible type mapping for the Sub PMCs, and create it */
-        type = Parrot_get_ctx_HLL_type(interp, type);
+        const INTVAL type = Parrot_get_ctx_HLL_type(interp, 
+                                r->pcc_sub->yield ? enum_class_Coroutine : enum_class_Sub);
 
         /* TODO create constant - see also src/packfile.c */
         sub_pmc = Parrot_pmc_new(interp, type);