diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2005-04-18 16:18:30 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-04-21 15:38:30 +0000 |
| commit | 27da23d53ccce622bc51822f59df8def79b4df95 (patch) | |
| tree | 1202440e0fbf7a2fc1bb54993d11cda7b245f1b4 /ext/List | |
| parent | ec0624293b57ae07d6b2c32bae099d4f163e7e07 (diff) | |
| download | perl-27da23d53ccce622bc51822f59df8def79b4df95.tar.gz | |
Symbian port of Perl
Message-ID: <B356D8F434D20B40A8CEDAEC305A1F2453D653@esebe105.NOE.Nokia.com>
p4raw-id: //depot/perl@24271
Diffstat (limited to 'ext/List')
| -rw-r--r-- | ext/List/Util/Util.xs | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs index 3a03488197..790a2b9af4 100644 --- a/ext/List/Util/Util.xs +++ b/ext/List/Util/Util.xs @@ -103,6 +103,24 @@ sv_tainted(SV *sv) # define PTR2UV(ptr) (UV)(ptr) #endif +#ifdef HASATTRIBUTE +# if (defined(__GNUC__) && defined(__cplusplus)) || defined(__INTEL_COMPILER) +# define PERL_UNUSED_DECL +# else +# define PERL_UNUSED_DECL __attribute__((unused)) +# endif +#else +# define PERL_UNUSED_DECL +#endif + +#ifndef dNOOP +#define dNOOP extern int Perl___notused PERL_UNUSED_DECL +#endif + +#ifndef dVAR +#define dVAR dNOOP +#endif + MODULE=List::Util PACKAGE=List::Util void @@ -206,6 +224,7 @@ reduce(block,...) PROTOTYPE: &@ CODE: { + dVAR; SV *ret = sv_newmortal(); int index; GV *agv,*bgv,*gv; @@ -261,6 +280,7 @@ first(block,...) PROTOTYPE: &@ CODE: { + dVAR; int index; GV *gv; HV *stash; @@ -315,6 +335,7 @@ shuffle(...) PROTOTYPE: @ CODE: { + dVAR; int index; struct op dmy_op; struct op *old_op = PL_op; |