diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-13 01:05:28 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-13 01:05:28 +0000 |
| commit | f022b9987cfef8a7e7c7c892f22c2e71c583bfc7 (patch) | |
| tree | 393b2f0f6925a3978e1e0a6d3974d31c8cbf275d /ext | |
| parent | 92731555bc557e609a4a3d41cae3427488548829 (diff) | |
| download | perl-f022b9987cfef8a7e7c7c892f22c2e71c583bfc7.tar.gz | |
Use __attribute__((unused)) to silence -Wall on unused ax.
p4raw-id: //depot/perl@10549
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/DB_File/DB_File.xs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs index 4942e25578..d6d0e9ee05 100644 --- a/ext/DB_File/DB_File.xs +++ b/ext/DB_File/DB_File.xs @@ -136,6 +136,12 @@ * boo, hiss. */ #undef dNOOP #define dNOOP extern int Perl___notused +/* Ditto for dXSARGS. */ +#undef dXSARGS +#define dXSARGS \ + dSP; dMARK; \ + I32 ax = mark - PL_stack_base + 1; \ + I32 items = sp - mark #endif |