diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-23 10:21:09 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-23 10:21:09 +0000 |
| commit | 5a0bf5beafbc81497604085c6c15972b612d3ade (patch) | |
| tree | 60bc3c8a1c39452d212e7df2b543f2acb3e23567 /ext | |
| parent | e9f01ab93c86a17295734568ee97afbd0bceb134 (diff) | |
| download | perl-5a0bf5beafbc81497604085c6c15972b612d3ade.tar.gz | |
PPPort dTHX.
p4raw-id: //depot/perl@16751
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Devel/PPPort/PPPort.pm | 49 |
1 files changed, 26 insertions, 23 deletions
diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm index d5e71f430b..83a2aa8f6f 100644 --- a/ext/Devel/PPPort/PPPort.pm +++ b/ext/Devel/PPPort/PPPort.pm @@ -381,8 +381,33 @@ __DATA__ /* Replace: 0 */ #endif +#ifdef HASATTRIBUTE +# if defined(__GNUC__) && defined(__cplusplus) +# define PERL_UNUSED_DECL +# else +# define PERL_UNUSED_DECL __attribute__((unused)) +# endif +#else +# define PERL_UNUSED_DECL +#endif + +#ifndef dNOOP +# define NOOP (void)0 +# define dNOOP extern int Perl___notused PERL_UNUSED_DECL +#endif + +#ifndef dTHR +# define dTHR dNOOP +#endif + +#ifndef dTHX +# define dTHX dNOOP +# define dTHXa(x) dNOOP +# define dTHXoa(x) dNOOP +#endif + #ifndef pTHX -# define pTHX +# define pTHX void # define pTHX_ # define aTHX # define aTHX_ @@ -396,14 +421,6 @@ __DATA__ # define INT2PTR(any,d) (any)(d) #endif -#ifndef dTHR -# ifdef WIN32 -# define dTHR extern int Perl___notused -# else -# define dTHR extern int errno -# endif -#endif - #ifndef boolSV # define boolSV(b) ((b) ? &PL_sv_yes : &PL_sv_no) #endif @@ -511,20 +528,6 @@ SV *sv; #endif /* newCONSTSUB */ -#ifndef NOOP -# define NOOP (void)0 -#endif - -#ifdef HASATTRIBUTE -# define PERL_UNUSED_DECL __attribute__((unused)) -#else -# define PERL_UNUSED_DECL -#endif - -#ifndef dNOOP -# define dNOOP extern int Perl___notused PERL_UNUSED_DECL -#endif - #ifndef START_MY_CXT /* |