98
98
my $env = GenerateFunctionInEnv($fn, "r.");
99
99
my $size_is = ParseExpr($e->{LEVELS}[$level]->{SIZE_IS}, $env, $e->{ORIGINAL});
100
100
if (has_property($e, "charset")) {
101
$self->pidl("memcpy(CONST_DISCARD(char *, $e->{NAME}), r.out.$e->{NAME}, $size_is * sizeof(*$e->{NAME}));");
101
$self->pidl("memcpy(discard_const_p(uint8_t *, $e->{NAME}), r.out.$e->{NAME}, ($size_is) * sizeof(*$e->{NAME}));");
106
106
$self->pidl("*$e->{NAME} = *r.out.$e->{NAME};");