Skip to content

Commit 78e9940

Browse files
committed
do not free C string we pass to/get from callbacks
This is consistant with what we do in MoarVM.
1 parent 95a965d commit 78e9940

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/vm/parrot/ops/nqp_dyncall.ops

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -558,7 +558,7 @@ unmarshal_callback(PARROT_INTERP, PMC *value, PMC *info) {
558558
typehash = VTABLE_get_pmc_keyed_int(interp, info, i);
559559
data->types[i] = VTABLE_get_pmc_keyed_str(interp, typehash,
560560
Parrot_str_new_constant(interp, "typeobj"));
561-
data->typeinfos[i] = get_arg_type(interp, typehash, 0);
561+
data->typeinfos[i] = get_arg_type(interp, typehash, 0) & ~DYNCALL_ARG_FREE_STR;
562562
signature[i-1] = get_signature_char(data->typeinfos[i]);
563563
}
564564

0 commit comments

Comments
 (0)