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

[svn:parrot] r32629 - in trunk: compilers/imcc src

From:
julianalbo
Date:
November 13, 2008 13:56
Subject:
[svn:parrot] r32629 - in trunk: compilers/imcc src
Message ID:
20081113215602.3C8F9CB9AF@x12.develooper.com
Author: julianalbo
Date: Thu Nov 13 13:56:01 2008
New Revision: 32629

Modified:
   trunk/compilers/imcc/parser_util.c
   trunk/compilers/imcc/pbc.c
   trunk/src/thread.c

Log:
kill several unused variables and avoid some empty loop body warnings

Modified: trunk/compilers/imcc/parser_util.c
==============================================================================
--- trunk/compilers/imcc/parser_util.c	(original)
+++ trunk/compilers/imcc/parser_util.c	Thu Nov 13 13:56:01 2008
@@ -346,7 +346,7 @@
     int dirs = 0;
     Instruction *ins;
     op_info_t   *op_info;
-    char fullname[64], format[128], buf[10];
+    char fullname[64], format[128];
 
     if ((STREQ(name, "set_args"))
     ||  (STREQ(name, "get_results"))
@@ -1353,7 +1353,7 @@
         int         ch = 0;
         size_t      n;
 
-        for (n = 0; (ch = *fmt) && ch != '%'; fmt++, n++);
+        for (n = 0; (ch = *fmt) && ch != '%'; fmt++, n++) {/*Empty body*/};
 
         /* print prev string */
         if (n) {

Modified: trunk/compilers/imcc/pbc.c
==============================================================================
--- trunk/compilers/imcc/pbc.c	(original)
+++ trunk/compilers/imcc/pbc.c	Thu Nov 13 13:56:01 2008
@@ -1793,11 +1793,6 @@
     int        ok = 0;
     op_info_t *op_info;
 
-    /* XXX move these statics into IMCC_INFO */
-    opcode_t       *pc;
-    opcode_t        npc;
-    /* XXX end */
-
 #if IMC_TRACE_HIGH
     PIO_eprintf(NULL, "e_pbc_emit\n");
 #endif

Modified: trunk/src/thread.c
==============================================================================
--- trunk/src/thread.c	(original)
+++ trunk/src/thread.c	Thu Nov 13 13:56:01 2008
@@ -1180,7 +1180,7 @@
 
     if (interp->thread_data->state & THREAD_STATE_SUSPEND_GC_REQUESTED) {
         DEBUG_ONLY(fprintf(stderr, "remove queued request\n"));
-        while (!PMC_IS_NULL(Parrot_cx_delete_suspend_for_gc(interp)));
+        while (!PMC_IS_NULL(Parrot_cx_delete_suspend_for_gc(interp))) {/*Empty body*/};
         DEBUG_ONLY(fprintf(stderr, "removed all queued requests\n"));
         interp->thread_data->state &= ~THREAD_STATE_SUSPEND_GC_REQUESTED;
     }
@@ -1575,7 +1575,7 @@
     }
     else if (interp->thread_data->state &
                THREAD_STATE_SUSPEND_GC_REQUESTED) {
-        while (!PMC_IS_NULL(Parrot_cx_delete_suspend_for_gc(interp)));
+        while (!PMC_IS_NULL(Parrot_cx_delete_suspend_for_gc(interp))) {/*Empty body*/};
 
         interp->thread_data->state &= ~THREAD_STATE_SUSPEND_GC_REQUESTED;
         interp->thread_data->state |= THREAD_STATE_SUSPENDED_GC;



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