From 27da23d53ccce622bc51822f59df8def79b4df95 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 18 Apr 2005 16:18:30 +0300 Subject: Symbian port of Perl Message-ID: p4raw-id: //depot/perl@24271 --- ext/PerlIO/scalar/scalar.xs | 4 ++-- ext/PerlIO/via/via.xs | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'ext/PerlIO') 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 } -- cgit v1.2.1