From 1de7c2aca01d9e33d916dcec3cd53be0b1f8e101 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Mon, 11 Jun 2001 16:34:31 -0700 Subject: As suggested in Subject: Re: ext/ + -Wall Message-Id: <200106120634.f5C6YVM07246@smtp3.ActiveState.com> p4raw-id: //depot/perl@10535 --- perl.h | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'perl.h') diff --git a/perl.h b/perl.h index 092d6efdcd..1673da9f71 100644 --- a/perl.h +++ b/perl.h @@ -258,6 +258,15 @@ struct perl_thread; # define dTHXx dTHX #endif +/* Under PERL_IMPLICIT_SYS (used in Windows for fork emulation) + * PerlIO_foo() expands to PL_StdIO->pFOO(PL_StdIO, ...). + * dTHXs is therefore needed for all functions using PerlIO_foo(). */ +#ifdef PERL_IMPLICIT_SYS +# define dTHXs dTHX +#else +# define dTHXs dNOOP +#endif + #undef START_EXTERN_C #undef END_EXTERN_C #undef EXTERN_C -- cgit v1.2.1