diff options
author | Aaron Crane <arc@cpan.org> | 2017-10-12 18:50:15 +0200 |
---|---|---|
committer | Aaron Crane <arc@cpan.org> | 2017-10-21 16:52:27 +0100 |
commit | 3d97541cde09d330e1c16246cbe085f4717abb01 (patch) | |
tree | 7449d10641b981b261f2989f41c009dddc476b4f /ext/SDBM_File | |
parent | c9db53f47fcab6bc813d34e149444282f9aef29c (diff) | |
download | perl-3d97541cde09d330e1c16246cbe085f4717abb01.tar.gz |
Rely on C89 prototypes
The Configure changes here were generated using a version of metaconfig
that modifies the prototype.U and Protochk.U units to assume that C89
prototypes work.
Diffstat (limited to 'ext/SDBM_File')
-rw-r--r-- | ext/SDBM_File/pair.c | 2 | ||||
-rw-r--r-- | ext/SDBM_File/pair.h | 18 | ||||
-rw-r--r-- | ext/SDBM_File/sdbm.c | 14 | ||||
-rw-r--r-- | ext/SDBM_File/sdbm.h | 34 |
4 files changed, 31 insertions, 37 deletions
diff --git a/ext/SDBM_File/pair.c b/ext/SDBM_File/pair.c index 5bbd873c03..2e4d8074e5 100644 --- a/ext/SDBM_File/pair.c +++ b/ext/SDBM_File/pair.c @@ -22,7 +22,7 @@ /* * forward */ -static int seepair proto((char *, int, const char *, int)); +static int seepair(char *, int, const char *, int); /* * page format: diff --git a/ext/SDBM_File/pair.h b/ext/SDBM_File/pair.h index b6944edd07..7191556a70 100644 --- a/ext/SDBM_File/pair.h +++ b/ext/SDBM_File/pair.h @@ -9,14 +9,14 @@ #define putpair sdbm__putpair #define splpage sdbm__splpage -extern int fitpair proto((char *, int)); -extern void putpair proto((char *, datum, datum)); -extern datum getpair proto((char *, datum)); -extern int exipair proto((char *, datum)); -extern int delpair proto((char *, datum)); -extern int chkpage proto((char *)); -extern datum getnkey proto((char *, int)); -extern void splpage proto((char *, char *, long)); +extern int fitpair(char *, int); +extern void putpair(char *, datum, datum); +extern datum getpair(char *, datum); +extern int exipair(char *, datum); +extern int delpair(char *, datum); +extern int chkpage(char *); +extern datum getnkey(char *, int); +extern void splpage(char *, char *, long); #ifdef SEEDUPS -extern int duppair proto((char *, datum)); +extern int duppair(char *, datum); #endif diff --git a/ext/SDBM_File/sdbm.c b/ext/SDBM_File/sdbm.c index cf5dc75d27..e055f08701 100644 --- a/ext/SDBM_File/sdbm.c +++ b/ext/SDBM_File/sdbm.c @@ -41,8 +41,8 @@ extern "C" { #endif -extern Malloc_t malloc proto((MEM_SIZE)); -extern Free_t free proto((Malloc_t)); +extern Malloc_t malloc(MEM_SIZE); +extern Free_t free(Malloc_t); #ifdef __cplusplus } @@ -53,11 +53,11 @@ const datum nullitem = {0, 0}; /* * forward */ -static int getdbit proto((DBM *, long)); -static int setdbit proto((DBM *, long)); -static int getpage proto((DBM *, long)); -static datum getnext proto((DBM *)); -static int makroom proto((DBM *, long, int)); +static int getdbit(DBM *, long); +static int setdbit(DBM *, long); +static int getpage(DBM *, long); +static datum getnext(DBM *); +static int makroom(DBM *, long, int); /* * useful macros diff --git a/ext/SDBM_File/sdbm.h b/ext/SDBM_File/sdbm.h index 1c1151ab47..d5511daeef 100644 --- a/ext/SDBM_File/sdbm.h +++ b/ext/SDBM_File/sdbm.h @@ -53,12 +53,6 @@ typedef struct { extern const datum nullitem; -#if defined(__STDC__) || defined(__cplusplus) || defined(CAN_PROTOTYPE) -#define proto(p) p -#else -#define proto(p) () -#endif - /* * flags to sdbm_store */ @@ -68,20 +62,20 @@ extern const datum nullitem; /* * ndbm interface */ -extern DBM *sdbm_open proto((char *, int, int)); -extern void sdbm_close proto((DBM *)); -extern datum sdbm_fetch proto((DBM *, datum)); -extern int sdbm_delete proto((DBM *, datum)); -extern int sdbm_store proto((DBM *, datum, datum, int)); -extern datum sdbm_firstkey proto((DBM *)); -extern datum sdbm_nextkey proto((DBM *)); -extern int sdbm_exists proto((DBM *, datum)); +extern DBM *sdbm_open(char *, int, int); +extern void sdbm_close(DBM *); +extern datum sdbm_fetch(DBM *, datum); +extern int sdbm_delete(DBM *, datum); +extern int sdbm_store(DBM *, datum, datum, int); +extern datum sdbm_firstkey(DBM *); +extern datum sdbm_nextkey(DBM *); +extern int sdbm_exists(DBM *, datum); /* * other */ -extern DBM *sdbm_prep proto((char *, char *, int, int)); -extern long sdbm_hash proto((const char *, int)); +extern DBM *sdbm_prep(char *, char *, int, int); +extern long sdbm_hash(const char *, int); #ifndef SDBM_ONLY #define dbm_open sdbm_open @@ -179,10 +173,10 @@ extern long sdbm_hash proto((const char *, int)); extern "C" { #endif -Malloc_t Perl_malloc proto((MEM_SIZE nbytes)); -Malloc_t Perl_calloc proto((MEM_SIZE elements, MEM_SIZE size)); -Malloc_t Perl_realloc proto((Malloc_t where, MEM_SIZE nbytes)); -Free_t Perl_mfree proto((Malloc_t where)); +Malloc_t Perl_malloc(MEM_SIZE nbytes); +Malloc_t Perl_calloc(MEM_SIZE elements, MEM_SIZE size); +Malloc_t Perl_realloc(Malloc_t where, MEM_SIZE nbytes); +Free_t Perl_mfree(Malloc_t where); #ifdef __cplusplus } |