develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r36035 - in trunk: compilers/imcc include/parrot src/pmc

From:
julianalbo
Date:
January 26, 2009 08:15
Subject:
[svn:parrot] r36035 - in trunk: compilers/imcc include/parrot src/pmc
Message ID:
20090126161452.12AD4CB9AE@x12.develooper.com
Author: julianalbo
Date: Mon Jan 26 08:14:50 2009
New Revision: 36035

Modified:
   trunk/compilers/imcc/reg_alloc.c
   trunk/include/parrot/gc_api.h
   trunk/src/pmc/exception.pmc

Log:
[cage] fix a few warnings

Modified: trunk/compilers/imcc/reg_alloc.c
==============================================================================
--- trunk/compilers/imcc/reg_alloc.c	(original)
+++ trunk/compilers/imcc/reg_alloc.c	Mon Jan 26 08:14:50 2009
@@ -366,7 +366,7 @@
     do {
         int first = 1;
         do {
-            while (pre_optimize(interp, unit));
+            while (pre_optimize(interp, unit)) { };
 
             find_basic_blocks(interp, unit, first);
             build_cfg(interp, unit);

Modified: trunk/include/parrot/gc_api.h
==============================================================================
--- trunk/include/parrot/gc_api.h	(original)
+++ trunk/include/parrot/gc_api.h	Mon Jan 26 08:14:50 2009
@@ -286,8 +286,8 @@
 #endif
 
 #if PARROT_GC_MS
-#  define GC_WRITE_BARRIER(interp, agg, old, _new)
-#  define GC_WRITE_BARRIER_KEY(interp, agg, old, old_key, _new, new_key)
+#  define GC_WRITE_BARRIER(interp, agg, old, _new) do { } while (0)
+#  define GC_WRITE_BARRIER_KEY(interp, agg, old, old_key, _new, new_key) do { } while (0)
 #endif
 
 #if PARROT_GC_GMS

Modified: trunk/src/pmc/exception.pmc
==============================================================================
--- trunk/src/pmc/exception.pmc	(original)
+++ trunk/src/pmc/exception.pmc	Mon Jan 26 08:14:50 2009
@@ -127,7 +127,7 @@
         PMC_data(SELF)            = core_struct;
         core_struct->severity     = ishash
             ? VTABLE_get_integer_keyed_str(interp, values, severity)
-            : EXCEPT_error;
+            : (INTVAL) EXCEPT_error;
         core_struct->handled      = 0;
         core_struct->message      = ishash
             ? VTABLE_get_string_keyed_str(interp, values, message)



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