diff options
Diffstat (limited to 'ext/PerlIO')
| -rw-r--r-- | ext/PerlIO/scalar/scalar.xs | 4 | ||||
| -rw-r--r-- | ext/PerlIO/via/via.xs | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/ext/PerlIO/scalar/scalar.xs b/ext/PerlIO/scalar/scalar.xs index 074da92631..55a5fd8057 100644 --- a/ext/PerlIO/scalar/scalar.xs +++ b/ext/PerlIO/scalar/scalar.xs @@ -254,7 +254,7 @@ PerlIOScalar_dup(pTHX_ PerlIO * f, PerlIO * o, CLONE_PARAMS * param, return f; } -PerlIO_funcs PerlIO_scalar = { +PERLIO_FUNCS_DECL(PerlIO_scalar) = { sizeof(PerlIO_funcs), "scalar", sizeof(PerlIOScalar), @@ -295,7 +295,7 @@ PROTOTYPES: ENABLE BOOT: { #ifdef PERLIO_LAYERS - PerlIO_define_layer(aTHX_ &PerlIO_scalar); + PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_scalar)); #endif } diff --git a/ext/PerlIO/via/via.xs b/ext/PerlIO/via/via.xs index d95d631190..ad27416b0f 100644 --- a/ext/PerlIO/via/via.xs +++ b/ext/PerlIO/via/via.xs @@ -590,7 +590,7 @@ PerlIOVia_dup(pTHX_ PerlIO * f, PerlIO * o, CLONE_PARAMS * param, -PerlIO_funcs PerlIO_object = { +PERLIO_FUNCS_DECL(PerlIO_object) = { sizeof(PerlIO_funcs), "via", sizeof(PerlIOVia), @@ -630,7 +630,7 @@ PROTOTYPES: ENABLE; BOOT: { #ifdef PERLIO_LAYERS - PerlIO_define_layer(aTHX_ &PerlIO_object); + PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_object)); #endif } |