[svn:parrot] r12469 - trunk/src/dynpmc

[bernhard]

Author: bernhard
Date: Sun Apr 30 12:18:58 2006
New Revision: 12469

Modified:
   trunk/src/dynpmc/perlarray.pmc
   trunk/src/dynpmc/perlenv.pmc
   trunk/src/dynpmc/perlstring.pmc

Log:
Declare vars at beginning of block.


Modified: trunk/src/dynpmc/perlarray.pmc
==============================================================================
--- trunk/src/dynpmc/perlarray.pmc      (original)
+++ trunk/src/dynpmc/perlarray.pmc      Sun Apr 30 12:18:58 2006
@@ -93,11 +93,12 @@
 */
 
     void set_integer_keyed_int (INTVAL key, INTVAL value) {
-        INTVAL dynpmc_PerlInt;
+        INTVAL  dynpmc_PerlInt;
+        PMC    *src;
 
         dynpmc_PerlInt = pmc_type(interpreter,
             string_from_const_cstring(interpreter, "PerlInt", 0));
-        PMC *src = pmc_new_noinit(INTERP, dynpmc_PerlInt);
+        src = pmc_new_noinit(INTERP, dynpmc_PerlInt);
         PMC_int_val(src) = value;
         list_assign(INTERP, (List *) PMC_data(SELF), key, src, enum_type_PMC);
     }

Modified: trunk/src/dynpmc/perlenv.pmc
==============================================================================
--- trunk/src/dynpmc/perlenv.pmc        (original)
+++ trunk/src/dynpmc/perlenv.pmc        Sun Apr 30 12:18:58 2006
@@ -66,12 +66,14 @@
 */
 
     PMC* get_pmc_keyed (PMC* key) {
-        INTVAL dynpmc_PerlString;
+        INTVAL   dynpmc_PerlString;
+        PMC     *ret;
+        STRING  *string;
     
         dynpmc_PerlString = pmc_type(interpreter,
             string_from_const_cstring(interpreter, "PerlString", 0));
-        PMC * ret = pmc_new(INTERP, dynpmc_PerlString);
-        STRING* string = DYNSELF.get_string_keyed(key);
+        ret = pmc_new(INTERP, dynpmc_PerlString);
+        string = DYNSELF.get_string_keyed(key);
         VTABLE_set_string_native(INTERP, ret, string);
 
         return ret;

Modified: trunk/src/dynpmc/perlstring.pmc
==============================================================================
--- trunk/src/dynpmc/perlstring.pmc     (original)
+++ trunk/src/dynpmc/perlstring.pmc     Sun Apr 30 12:18:58 2006
@@ -159,10 +159,11 @@
 */
 
     PMC* get_pmc_keyed(PMC* key) {
-        STRING *s = PMC_str_val(SELF);
-        PMC *ret;
-        INTVAL dynpmc_PerlString;
+        STRING    *s;
+        PMC       *ret;
+        INTVAL     dynpmc_PerlString;
     
+        s = PMC_str_val(SELF);
         dynpmc_PerlString = pmc_type(interpreter,
             string_from_const_cstring(interpreter, "PerlString", 0));
         ret = pmc_new_noinit(INTERP, dynpmc_PerlString);