summaryrefslogtreecommitdiff
path: root/ext
diff options
context:
space:
mode:
Diffstat (limited to 'ext')
-rw-r--r--ext/B/B/C.pm8
-rw-r--r--ext/B/B/CC.pm2
-rw-r--r--ext/B/byteperl.c6
-rw-r--r--ext/ByteLoader/ByteLoader.xs4
-rw-r--r--ext/Data/Dumper/Dumper.xs16
-rw-r--r--ext/DynaLoader/dl_beos.xs2
-rw-r--r--ext/DynaLoader/dl_dlopen.xs2
-rw-r--r--ext/DynaLoader/dl_vmesa.xs2
-rw-r--r--ext/IO/poll.h2
-rw-r--r--ext/IPC/SysV/SysV.xs2
-rw-r--r--ext/Opcode/Opcode.xs12
-rw-r--r--ext/POSIX/POSIX.xs8
-rw-r--r--ext/Thread/Thread.xs2
-rw-r--r--ext/re/re.xs8
14 files changed, 38 insertions, 38 deletions
diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm
index 4aa80a1ae7..a8f20a923d 100644
--- a/ext/B/B/C.pm
+++ b/ext/B/B/C.pm
@@ -671,7 +671,7 @@ sub B::CV::save {
my $stashname = $egv->STASH->NAME;
$stashname =~ s/::/__/g;
$xsub = sprintf("XS_%s_%s", $stashname, $egv->NAME);
- $decl->add("void $xsub _((CV*));");
+ $decl->add("void $xsub (CV*));";
}
else {
warn sprintf("No definition for sub %s::%s (unable to autoload)\n",
@@ -1002,7 +1002,7 @@ typedef struct {
HV * xcv_stash;
OP * xcv_start;
OP * xcv_root;
- void (*xcv_xsub) _((CV*));
+ void (*xcv_xsub) (CV*);
void * xcv_xsubany;
GV * xcv_gv;
GV * xcv_filegv;
@@ -1040,9 +1040,9 @@ sub output_boilerplate {
#undef pp_mapstart
#define pp_mapstart pp_grepstart
#define XS_DynaLoader_boot_DynaLoader boot_DynaLoader
-EXTERN_C void boot_DynaLoader _((CV* cv));
+EXTERN_C void boot_DynaLoader (CV* cv);
-static void xs_init _((void));
+static void xs_init (void);
static PerlInterpreter *my_perl;
EOT
}
diff --git a/ext/B/B/CC.pm b/ext/B/B/CC.pm
index 649f6e10f7..e21909ec75 100644
--- a/ext/B/B/CC.pm
+++ b/ext/B/B/CC.pm
@@ -149,7 +149,7 @@ sub init_pp {
declare("SV", "**svp");
map { declare("SV", "*$_") } qw(sv src dst left right);
declare("MAGIC", "*mg");
- $decl->add("static OP * $ppname _((ARGSproto));");
+ $decl->add("static OP * $ppname (ARGSproto);");
debug "init_pp: $ppname\n" if $debug_queue;
}
diff --git a/ext/B/byteperl.c b/ext/B/byteperl.c
index 313ca031e8..17dfdee33a 100644
--- a/ext/B/byteperl.c
+++ b/ext/B/byteperl.c
@@ -1,7 +1,7 @@
#include "EXTERN.h"
#include "perl.h"
-static void xs_init _((void));
+static void xs_init (void);
static PerlInterpreter *my_perl;
int
@@ -81,8 +81,8 @@ main(int argc, char **argv, char **env)
#ifdef INDIRECT_BGET_MACROS
bs.data = fp;
- bs.fgetc = (int(*) _((void*)))fgetc;
- bs.fread = (int(*) _((char*,size_t,size_t,void*)))fread;
+ bs.fgetc = (int(*) (void*))fgetc;
+ bs.fread = (int(*) (char*,size_t,size_t,void*))fread;
bs.freadpv = freadpv;
byterun(bs);
#else
diff --git a/ext/ByteLoader/ByteLoader.xs b/ext/ByteLoader/ByteLoader.xs
index ae2e18cd89..dd300be3be 100644
--- a/ext/ByteLoader/ByteLoader.xs
+++ b/ext/ByteLoader/ByteLoader.xs
@@ -25,8 +25,8 @@ byteloader_filter(int idx, SV *buf_sv, int maxlen)
struct bytestream bs;
bs.data = PL_rsfp;
- bs.fgetc = (int(*) _((void*)))fgetc;
- bs.fread = (int(*) _((char*,size_t,size_t,void*)))fread;
+ bs.fgetc = (int(*) (void*))fgetc;
+ bs.fread = (int(*) (char*,size_t,size_t,void*))fread;
bs.freadpv = freadpv;
byterun(bs);
diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs
index c9ad9b63a6..c1faea2a28 100644
--- a/ext/Data/Dumper/Dumper.xs
+++ b/ext/Data/Dumper/Dumper.xs
@@ -19,14 +19,14 @@
# endif
#endif
-static I32 num_q _((char *s, STRLEN slen));
-static I32 esc_q _((char *dest, char *src, STRLEN slen));
-static SV *sv_x _((SV *sv, char *str, STRLEN len, I32 n));
-static I32 DD_dump _((SV *val, char *name, STRLEN namelen, SV *retval,
- HV *seenhv, AV *postav, I32 *levelp, I32 indent,
- SV *pad, SV *xpad, SV *apad, SV *sep,
- SV *freezer, SV *toaster,
- I32 purity, I32 deepcopy, I32 quotekeys, SV *bless));
+static I32 num_q (char *s, STRLEN slen);
+static I32 esc_q (char *dest, char *src, STRLEN slen);
+static SV *sv_x (SV *sv, char *str, STRLEN len, I32 n);
+static I32 DD_dump (SV *val, char *name, STRLEN namelen, SV *retval,
+ HV *seenhv, AV *postav, I32 *levelp, I32 indent,
+ SV *pad, SV *xpad, SV *apad, SV *sep,
+ SV *freezer, SV *toaster,
+ I32 purity, I32 deepcopy, I32 quotekeys, SV *bless);
/* does a string need to be protected? */
static I32
diff --git a/ext/DynaLoader/dl_beos.xs b/ext/DynaLoader/dl_beos.xs
index 42a27cb1f1..4e773df202 100644
--- a/ext/DynaLoader/dl_beos.xs
+++ b/ext/DynaLoader/dl_beos.xs
@@ -102,7 +102,7 @@ dl_install_xsub(perl_name, symref, filename="$Package")
CODE:
DLDEBUG(2,PerlIO_printf(PerlIO_stderr(), "dl_install_xsub(name=%s, symref=%lx)\n",
perl_name, (unsigned long) symref));
- ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)_((CV *)))symref, filename)));
+ ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)(CV *))symref, filename)));
char *
diff --git a/ext/DynaLoader/dl_dlopen.xs b/ext/DynaLoader/dl_dlopen.xs
index 2459205653..b2dbf3d96a 100644
--- a/ext/DynaLoader/dl_dlopen.xs
+++ b/ext/DynaLoader/dl_dlopen.xs
@@ -206,7 +206,7 @@ dl_install_xsub(perl_name, symref, filename="$Package")
CODE:
DLDEBUG(2,PerlIO_printf(PerlIO_stderr(), "dl_install_xsub(name=%s, symref=%lx)\n",
perl_name, (unsigned long) symref));
- ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)_((CV *)))symref, filename)));
+ ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)(CV *))symref, filename)));
char *
diff --git a/ext/DynaLoader/dl_vmesa.xs b/ext/DynaLoader/dl_vmesa.xs
index 34d4dddad7..8c4fd1b51b 100644
--- a/ext/DynaLoader/dl_vmesa.xs
+++ b/ext/DynaLoader/dl_vmesa.xs
@@ -160,7 +160,7 @@ dl_install_xsub(perl_name, symref, filename="$Package")
CODE:
DLDEBUG(2,PerlIO_printf(PerlIO_stderr(), "dl_install_xsub(name=%s, symref=%lx)\n",
perl_name, (unsigned long) symref));
- ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)_((CV *)))symref, filename)));
+ ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)(CV *))symref, filename)));
char *
diff --git a/ext/IO/poll.h b/ext/IO/poll.h
index c5cdd7f916..4055b49624 100644
--- a/ext/IO/poll.h
+++ b/ext/IO/poll.h
@@ -41,7 +41,7 @@ typedef struct pollfd {
#define POLLHUP 0x0010
#define POLLNVAL 0x0020
-int poll _((struct pollfd *, unsigned long, int));
+int poll (struct pollfd *, unsigned long, int);
#ifndef HAS_POLL
# define HAS_POLL
diff --git a/ext/IPC/SysV/SysV.xs b/ext/IPC/SysV/SysV.xs
index dbed151a71..38062e028b 100644
--- a/ext/IPC/SysV/SysV.xs
+++ b/ext/IPC/SysV/SysV.xs
@@ -19,7 +19,7 @@
# endif
# include <sys/shm.h>
# ifndef HAS_SHMAT_PROTOTYPE
- extern Shmat_t shmat _((int, char *, int));
+ extern Shmat_t shmat (int, char *, int);
# endif
# if defined(__sparc__) && (defined(__NetBSD__) || defined(__OpenBSD__))
# undef SHMLBA /* not static: determined at boot time */
diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs
index 648ee91330..b07159cfe7 100644
--- a/ext/Opcode/Opcode.xs
+++ b/ext/Opcode/Opcode.xs
@@ -11,11 +11,11 @@ static SV *opset_all; /* mask with all bits set */
static IV opset_len; /* length of opmasks in bytes */
static int opcode_debug = 0;
-static SV *new_opset _((SV *old_opset));
-static int verify_opset _((SV *opset, int fatal));
-static void set_opset_bits _((char *bitmap, SV *bitspec, int on, char *opname));
-static void put_op_bitspec _((char *optag, STRLEN len, SV *opset));
-static SV *get_op_bitspec _((char *opname, STRLEN len, int fatal));
+static SV *new_opset (SV *old_opset);
+static int verify_opset (SV *opset, int fatal);
+static void set_opset_bits (char *bitmap, SV *bitspec, int on, char *opname);
+static void put_op_bitspec (char *optag, STRLEN len, SV *opset);
+static SV *get_op_bitspec (char *opname, STRLEN len, int fatal);
/* Initialise our private op_named_bits HV.
@@ -209,7 +209,7 @@ opmask_addlocal(SV *opset, char *op_mask_buf) /* Localise PL_op_mask then opmask
* is disallowed by Borland
*/
if (opcode_debug >= 2)
- SAVEDESTRUCTOR((void(CPERLscope(*))_((void*)))warn,"PL_op_mask restored");
+ SAVEDESTRUCTOR((void(CPERLscope(*))(void*))warn,"PL_op_mask restored");
#endif
PL_op_mask = &op_mask_buf[0];
if (orig_op_mask)
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index b228e1bbab..b529dbf8fa 100644
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -184,10 +184,10 @@ typedef struct termios* POSIX__Termios;
#endif
/* Possibly needed prototypes */
-char *cuserid _((char *));
-double strtod _((const char *, char **));
-long strtol _((const char *, char **, int));
-unsigned long strtoul _((const char *, char **, int));
+char *cuserid (char *);
+double strtod (const char *, char **);
+long strtol (const char *, char **, int);
+unsigned long strtoul (const char *, char **, int);
#ifndef HAS_CUSERID
#define cuserid(a) (char *) not_here("cuserid")
diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs
index c3b468314a..8ae50d14a8 100644
--- a/ext/Thread/Thread.xs
+++ b/ext/Thread/Thread.xs
@@ -319,7 +319,7 @@ newthread (SV *startsv, AV *initargs, char *classname)
#endif
}
-static Signal_t handle_thread_signal _((int sig));
+static Signal_t handle_thread_signal (int sig);
static Signal_t
handle_thread_signal(int sig)
diff --git a/ext/re/re.xs b/ext/re/re.xs
index 7230d626dc..baa990d2ad 100644
--- a/ext/re/re.xs
+++ b/ext/re/re.xs
@@ -7,10 +7,10 @@
#include "perl.h"
#include "XSUB.h"
-extern regexp* my_regcomp _((char* exp, char* xend, PMOP* pm));
-extern I32 my_regexec _((regexp* prog, char* stringarg, char* strend,
- char* strbeg, I32 minend, SV* screamer,
- void* data, U32 flags));
+extern regexp* my_regcomp (char* exp, char* xend, PMOP* pm);
+extern I32 my_regexec (regexp* prog, char* stringarg, char* strend,
+ char* strbeg, I32 minend, SV* screamer,
+ void* data, U32 flags);
static int oldfl;
View Lorry Controller Status