Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Add pointer casts to quiet warnings

  • Loading branch information...
commit 8e2134eac895999ee3d46a0b698a5df402ed17ba 1 parent 0af9e7b
@gerdr gerdr authored
View
4 src/binder/multidispatch.c
@@ -436,8 +436,8 @@ add_to_cache(PARROT_INTERP, Rakudo_md_cache *cache, PMC *capture, INTVAL num_arg
/* If there's no entries yet, need to do some allocation. */
if (entries == 0) {
- cache->arity_caches[num_args - 1].type_ids = mem_sys_allocate(num_args * sizeof(INTVAL) * MD_CACHE_MAX_ENTRIES);
- cache->arity_caches[num_args - 1].results = mem_sys_allocate(sizeof(PMC *) * MD_CACHE_MAX_ENTRIES);
+ cache->arity_caches[num_args - 1].type_ids = (INTVAL *)mem_sys_allocate(num_args * sizeof(INTVAL) * MD_CACHE_MAX_ENTRIES);
+ cache->arity_caches[num_args - 1].results = (PMC **)mem_sys_allocate(sizeof(PMC *) * MD_CACHE_MAX_ENTRIES);
}
/* Add entry. */
View
2  src/pmc/mdthunk.pmc
@@ -24,7 +24,7 @@ pmclass MDThunk
}
VTABLE void set_pointer(void *ptr) {
- dispatcher = ptr;
+ dispatcher = (PMC * (*)(PARROT_INTERP, PMC *, PMC *, opcode_t *))ptr;
}
VTABLE opcode_t* invoke(void *next) {
View
2  src/pmc/perl6lexpad.pmc
@@ -242,7 +242,7 @@ Return the LexInfo PMC, if any or a Null PMC.
STRING *state = VTABLE_get_string_keyed_int(interp, state_flags_cache, i);
if (!STRING_IS_NULL(state)) {
/* See if we have some state storage. */
- PMC * sub = Parrot_pcc_get_sub(interp, ctx);
+ PMC * sub = Parrot_pcc_get_sub(interp, (PMC *)ctx);
PMC * cur_state = PMCNULL;
PMC * p6sub, *state_stash;
GETATTR_Sub_multi_signature(interp, sub, p6sub);
Please sign in to comment.
Something went wrong with that request. Please try again.