silence type cast warnings

Raku · Oct 29, 2013 · aca76d0 · aca76d0
1 parent d0a4a9b
commit aca76d0
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/vm/parrot/ops/nqp.ops b/src/vm/parrot/ops/nqp.ops
@@ -337,7 +337,7 @@ extern char **environ;
 #include <windows.h>
 #include <process.h>
 static char * pack_env_hash(Parrot_Interp interp, PMC* hash_pmc) {
-    Hash *hash = VTABLE_get_pointer(interp, hash_pmc);
+    Hash *hash = (Hash *)VTABLE_get_pointer(interp, hash_pmc);
     STRING *equal = Parrot_str_new_constant(interp, "=");
     STRING *key, *value, *env_var, *env_var_with_null;
     STRING *packed = Parrot_str_new_constant(interp, "");
@@ -592,11 +592,11 @@ static INTVAL Run_OS_Command(PARROT_INTERP, STRING *command, PMC *env_hash)
 #include <sys/wait.h>
 
 static char ** pack_env_hash(Parrot_Interp interp, PMC* hash_pmc) {
-    Hash *hash = VTABLE_get_pointer(interp, hash_pmc);
+    Hash *hash = (Hash *)VTABLE_get_pointer(interp, hash_pmc);
     STRING *equal = Parrot_str_new_constant(interp, "=");
     STRING *key, *value, *env_var;
     INTVAL hash_size = Parrot_hash_size(interp, hash);
-    char** packed = mem_sys_allocate_zeroed(sizeof(char*) * (hash_size+1));
+    char** packed = (char **)mem_sys_allocate_zeroed(sizeof(char*) * (hash_size+1));
     INTVAL i = 0;