develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34441 - trunk/compilers/pirc/new

From:
kjs
Date:
December 27, 2008 11:47
Subject:
[svn:parrot] r34441 - trunk/compilers/pirc/new
Message ID:
20081227194752.BCB29CBA12@x12.develooper.com
Author: kjs
Date: Sat Dec 27 11:47:51 2008
New Revision: 34441

Modified:
   trunk/compilers/pirc/new/pircompunit.c

Log:
[pirc] convert 4 similar statements into a loop.

Modified: trunk/compilers/pirc/new/pircompunit.c
==============================================================================
--- trunk/compilers/pirc/new/pircompunit.c	(original)
+++ trunk/compilers/pirc/new/pircompunit.c	Sat Dec 27 11:47:51 2008
@@ -80,10 +80,9 @@
 void
 reset_register_allocator(lexer_state * const lexer) {
     /* set register allocator to 0 for all register types. */
-    lexer->curregister[INT_TYPE]    = 0;
-    lexer->curregister[NUM_TYPE]    = 0;
-    lexer->curregister[PMC_TYPE]    = 0;
-    lexer->curregister[STRING_TYPE] = 0;
+    int i;
+    for (i = 0; i < NUM_PARROT_TYPES; ++i)
+        lexer->curregister[i] = 0;
 }
 
 
@@ -2103,7 +2102,6 @@
                 global_label *glob = find_global_label(lexer, inv->sub->info->id.name);
 
                 if (glob) {
-                    /* XXX fix pmc const stuff */
                     new_sub_instr(lexer, PARROT_OP_set_p_pc, "set_p_pc");
                     add_operands(lexer, "%T%i", sub, glob->const_table_index);
                 }



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About