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

[plobsing at svn.parrot.org]

Author: plobsing
Date: Sun May 23 02:02:22 2010
New Revision: 46903
URL: https://trac.parrot.org/parrot/changeset/46903

Log:
eliminate unused has_compiled field in IMCC_INFO

Modified:
   trunk/compilers/imcc/imc.h
   trunk/compilers/imcc/instructions.c
   trunk/compilers/imcc/optimizer.c
   trunk/compilers/imcc/parser_util.c

Modified: trunk/compilers/imcc/imc.h
==============================================================================
--- trunk/compilers/imcc/imc.h	Sat May 22 22:29:18 2010	(r46902)
+++ trunk/compilers/imcc/imc.h	Sun May 23 02:02:22 2010	(r46903)
@@ -577,7 +577,6 @@
     int                   error_code;      /* The Error code. */
     int                   expect_pasm;
     int                   gc_off;
-    int                   has_compile;
     int                   imcc_warn;
     int                   in_pod;
     int                   ins_line;

Modified: trunk/compilers/imcc/instructions.c
==============================================================================
--- trunk/compilers/imcc/instructions.c	Sat May 22 22:29:18 2010	(r46902)
+++ trunk/compilers/imcc/instructions.c	Sun May 23 02:02:22 2010	(r46903)
@@ -799,7 +799,6 @@
 {
     ASSERT_ARGS(emit_open)
     IMCC_INFO(interp)->emitter       = type;
-    IMCC_INFO(interp)->has_compile   = 0;
     IMCC_INFO(interp)->dont_optimize = 0;
 
     return (emitters[IMCC_INFO(interp)->emitter]).open(interp, param);

Modified: trunk/compilers/imcc/optimizer.c
==============================================================================
--- trunk/compilers/imcc/optimizer.c	Sat May 22 22:29:18 2010	(r46902)
+++ trunk/compilers/imcc/optimizer.c	Sun May 23 02:02:22 2010	(r46903)
@@ -1416,7 +1416,7 @@
         Instruction *ins = unit->bb_list[i]->start;
         if ((ins->type & ITLABEL) && *ins->symregs[0]->name != '_') {
             const SymReg * const lab = ins->symregs[0];
-            used = IMCC_INFO(interp)->has_compile ? 1 : 0;
+            used = 0;
 
             if (!lab->first_ins)
                 continue;

Modified: trunk/compilers/imcc/parser_util.c
==============================================================================
--- trunk/compilers/imcc/parser_util.c	Sat May 22 22:29:18 2010	(r46902)
+++ trunk/compilers/imcc/parser_util.c	Sun May 23 02:02:22 2010	(r46903)
@@ -479,8 +479,6 @@
             if (r[0]->set == r[1]->set && REG_NEEDS_ALLOC(r[1]))
                 ins->type |= ITALIAS;
         }
-        else if (STREQ(name, "compile"))
-            ++IMCC_INFO(interp)->has_compile;
 
       found_ins:
         if (emit)