pdlmagic.c (PDL-2.082) | : | pdlmagic.c (PDL-2.083) | ||
---|---|---|---|---|
skipping to change at line 172 | skipping to change at line 172 | |||
/**************** | /**************** | |||
* | * | |||
* ->bind - magic | * ->bind - magic | |||
*/ | */ | |||
void *svmagic_cast(pdl_magic *mag) | void *svmagic_cast(pdl_magic *mag) | |||
{ | { | |||
pdl_magic_perlfunc *magp = (pdl_magic_perlfunc *)mag; | pdl_magic_perlfunc *magp = (pdl_magic_perlfunc *)mag; | |||
dSP; | dSP; | |||
ENTER; SAVETMPS; | ||||
PUSHMARK(sp); | PUSHMARK(sp); | |||
perl_call_sv(magp->sv, G_DISCARD | G_NOARGS); | perl_call_sv(magp->sv, G_DISCARD | G_NOARGS); | |||
FREETMPS; LEAVE; | ||||
return NULL; | return NULL; | |||
} | } | |||
static pdl_magic_vtable svmagic_vtable = { | static pdl_magic_vtable svmagic_vtable = { | |||
svmagic_cast, | svmagic_cast, | |||
NULL | NULL | |||
}; | }; | |||
pdl_magic *pdl_add_svmagic(pdl *it,SV *func) | pdl_magic *pdl_add_svmagic(pdl *it,SV *func) | |||
{ | { | |||
End of changes. 2 change blocks. | ||||
0 lines changed or deleted | 2 lines changed or added |