[svn:parrot] r17791 - in trunk/src: . ops

[chromatic]

Author: chromatic
Date: Tue Mar 27 11:31:33 2007
New Revision: 17791

Modified:
   trunk/src/charset.c
   trunk/src/exec.c
   trunk/src/ops/experimental.ops
   trunk/src/ops/io.ops
   trunk/src/ops/object.ops
   trunk/src/ops/sys.ops

Log:
Don't return anything from void functions (Steve Peters, RT #42110).

Modified: trunk/src/charset.c
==============================================================================
--- trunk/src/charset.c (original)
+++ trunk/src/charset.c Tue Mar 27 11:31:33 2007
@@ -320,11 +320,11 @@
 
             nc = left->n_converters++;
             if (nc) {
-                left->to_converters = mem_sys_realloc(left->to_converters,
-                        sizeof (To_converter) * (nc + 1));
+                left->to_converters = (To_converter *)mem_sys_realloc(
+                        left->to_converters, sizeof (To_converter) * (nc + 1));
             }
             else
-                left->to_converters = mem_sys_allocate(sizeof (To_converter));
+                left->to_converters = (To_converter *)mem_sys_allocate(sizeof 
(To_converter));
             left->to_converters[nc].to = rhs;
             left->to_converters[nc].func = func;
         }

Modified: trunk/src/exec.c
==============================================================================
--- trunk/src/exec.c    (original)
+++ trunk/src/exec.c    Tue Mar 27 11:31:33 2007
@@ -266,8 +266,8 @@
     extern PARROT_API char **Parrot_exec_rel_addr;
     extern PARROT_API int Parrot_exec_rel_count;
 
-    new_relloc = mem_sys_realloc(obj->text_rellocation_table,
-        (size_t)(obj->text_rellocation_count + 1)
+    new_relloc = (Parrot_exec_rellocation_t *)mem_sys_realloc(
+        obj->text_rellocation_table, (size_t)(obj->text_rellocation_count + 1)
             * sizeof (Parrot_exec_rellocation_t));
     obj->text_rellocation_table = new_relloc;
     new_relloc = &obj->text_rellocation_table[obj->text_rellocation_count++];

Modified: trunk/src/ops/experimental.ops
==============================================================================
--- trunk/src/ops/experimental.ops      (original)
+++ trunk/src/ops/experimental.ops      Tue Mar 27 11:31:33 2007
@@ -520,7 +520,7 @@
     Interp * const new_interp = (Interp *)PMC_data($1);
     opcode_t *pc;
     Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);
-    pc = VTABLE_invoke(new_interp, $2, NULL);
+    pc = (opcode_t *)VTABLE_invoke(new_interp, $2, NULL);
     Parrot_runops_fromc_args(new_interp, $2, "P");
     goto NEXT();
 }

Modified: trunk/src/ops/io.ops
==============================================================================
--- trunk/src/ops/io.ops        (original)
+++ trunk/src/ops/io.ops        Tue Mar 27 11:31:33 2007
@@ -372,7 +372,7 @@
     if (pio->vtable->base_type != enum_class_ParrotIO)
         real_exception(interp, NULL, PIO_ERROR,
                 "Cannot read line from empty filehandle");
-    io = PMC_data(pio);
+    io = (ParrotIO *)PMC_data(pio);
     if (!io)
         real_exception(interp, NULL, PIO_ERROR,
                 "Cannot read line from empty filehandle");

Modified: trunk/src/ops/object.ops
==============================================================================
--- trunk/src/ops/object.ops    (original)
+++ trunk/src/ops/object.ops    Tue Mar 27 11:31:33 2007
@@ -60,7 +60,7 @@
         "Method '%Ss' not found", meth);
   }
   interp->current_object = object;
-  interp->current_cont = NEED_CONTINUATION;
+  interp->current_cont = (PMC *)NEED_CONTINUATION;
   dest = (opcode_t *)VTABLE_invoke(interp, method_pmc, next);
   goto ADDRESS(dest);
 }
@@ -76,7 +76,7 @@
 
   next = expr NEXT();
   interp->current_object = object;
-  interp->current_cont = NEED_CONTINUATION;
+  interp->current_cont = (PMC *)NEED_CONTINUATION;
   dest = (opcode_t *)VTABLE_invoke(interp, method_pmc, next);
   goto ADDRESS(dest);
 }

Modified: trunk/src/ops/sys.ops
==============================================================================
--- trunk/src/ops/sys.ops       (original)
+++ trunk/src/ops/sys.ops       Tue Mar 27 11:31:33 2007
@@ -297,7 +297,7 @@
       real_exception(interp, next, NEG_SLEEP,
         "Cannot go back in time");
   }
-  next = Parrot_sleep_on_event(interp, (FLOATVAL) $1, next);
+  next = (opcode_t *)Parrot_sleep_on_event(interp, (FLOATVAL) $1, next);
   goto ADDRESS(next);
 }
 
@@ -307,7 +307,7 @@
       real_exception(interp, next, NEG_SLEEP,
         "Cannot go back in time");
   }
-  next = Parrot_sleep_on_event(interp, $1, next);
+  next = (opcode_t *)Parrot_sleep_on_event(interp, $1, next);
   goto ADDRESS(next);
 }