diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-06-11 15:19:45 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-12 13:13:27 +0000 |
| commit | c6c619a96fa11b09bef26d0c724b6cfd0bdbb34b (patch) | |
| tree | 00f4b8ab49ed4e56e2be3401170b6d1b6bca3e61 /ext/DB_File | |
| parent | 6676db263f08eab1c09a46739d7c3c0d2ea7f6df (diff) | |
| download | perl-c6c619a96fa11b09bef26d0c724b6cfd0bdbb34b.tar.gz | |
ext/ + -Wall
Message-ID: <Pine.LNX.4.21.0106112212261.24181-100000@mako.covalent.net>
p4raw-id: //depot/perl@10534
Diffstat (limited to 'ext/DB_File')
| -rw-r--r-- | ext/DB_File/DB_File.xs | 25 | ||||
| -rw-r--r-- | ext/DB_File/version.c | 1 |
2 files changed, 21 insertions, 5 deletions
diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs index 8a9ce8a2b6..4942e25578 100644 --- a/ext/DB_File/DB_File.xs +++ b/ext/DB_File/DB_File.xs @@ -95,6 +95,7 @@ */ +#define PERL_NO_GET_CONTEXT #include "EXTERN.h" #include "perl.h" #include "XSUB.h" @@ -138,6 +139,10 @@ #endif +/* avoid -Wall; DB_File xsubs never make use of `ix' setup for ALIASes */ +#undef dXSI32 +#define dXSI32 dNOOP + /* If Perl has been compiled with Threads support,the symbol op will be defined here. This clashes with a field name in db.h, so get rid of it. */ @@ -1703,11 +1708,13 @@ db_EXISTS(db, key) OUTPUT: RETVAL -int +void db_FETCH(db, key, flags=0) DB_File db DBTKEY key u_int flags + PREINIT: + int RETVAL; CODE: { DBT value ; @@ -1730,9 +1737,11 @@ db_STORE(db, key, value, flags=0) CurrentDB = db ; -int +void db_FIRSTKEY(db) DB_File db + PREINIT: + int RETVAL; CODE: { DBTKEY key ; @@ -1746,10 +1755,12 @@ db_FIRSTKEY(db) OutputKey(ST(0), key) ; } -int +void db_NEXTKEY(db, key) DB_File db DBTKEY key + PREINIT: + int RETVAL; CODE: { DBT value ; @@ -1806,10 +1817,12 @@ unshift(db, ...) OUTPUT: RETVAL -I32 +void pop(db) DB_File db ALIAS: POP = 1 + PREINIT: + I32 RETVAL; CODE: { DBTKEY key ; @@ -1833,10 +1846,12 @@ pop(db) } } -I32 +void shift(db) DB_File db ALIAS: SHIFT = 1 + PREINIT: + I32 RETVAL; CODE: { DBT value ; diff --git a/ext/DB_File/version.c b/ext/DB_File/version.c index 82b3e8b27b..2801ffa2c7 100644 --- a/ext/DB_File/version.c +++ b/ext/DB_File/version.c @@ -22,6 +22,7 @@ */ +#define PERL_NO_GET_CONTEXT #include "EXTERN.h" #include "perl.h" #include "XSUB.h" |