summaryrefslogtreecommitdiff
path: root/win32
diff options
context:
space:
mode:
Diffstat (limited to 'win32')
-rw-r--r--win32/GenCAPI.pl4
-rw-r--r--win32/config_H.bc6
-rw-r--r--win32/config_H.gc6
-rw-r--r--win32/config_H.vc6
-rw-r--r--win32/makemain.pl2
-rw-r--r--win32/perllib.c4
-rw-r--r--win32/runperl.c2
-rw-r--r--win32/win32.h14
-rw-r--r--win32/win32thread.h12
9 files changed, 28 insertions, 28 deletions
diff --git a/win32/GenCAPI.pl b/win32/GenCAPI.pl
index 82e0b32fc7..60d199de27 100644
--- a/win32/GenCAPI.pl
+++ b/win32/GenCAPI.pl
@@ -119,8 +119,8 @@ while () {
}
$_ =~ s/^VIRTUAL\s*//;
$_ =~ s/\s*__attribute__.*$/;/;
- if ( /(.*)\s([A-z_]*[0-9A-z_]+\s)_\(\((.*)\)\);/ ||
- /(.*)\*([A-z_]*[0-9A-z_]+\s)_\(\((.*)\)\);/ ) {
+ if ( /(.*)\s([A-z_]*[0-9A-z_]+\s)\((.*)\);/ ||
+ /(.*)\*([A-z_]*[0-9A-z_]+\s)\((.*)\);/ ) {
$type = $1;
$name = $2;
$args = $3;
diff --git a/win32/config_H.bc b/win32/config_H.bc
index ced050cc64..611e03149f 100644
--- a/win32/config_H.bc
+++ b/win32/config_H.bc
@@ -577,7 +577,7 @@
/* HAS_SHMAT_PROTOTYPE:
* This symbol, if defined, indicates that the sys/shm.h includes
* a prototype for shmat(). Otherwise, it is up to the program to
- * guess one. Shmat_t shmat _((int, Shmat_t, int)) is a good guess,
+ * guess one. Shmat_t shmat (int, Shmat_t, int) is a good guess,
* but not always right so it should be emitted by the program only
* when HAS_SHMAT_PROTOTYPE is not defined to avoid conflicting defs.
*/
@@ -2149,7 +2149,7 @@
* This symbol, if defined, indicates that the system provides
* a prototype for the telldir() function. Otherwise, it is up
* to the program to supply one. A good guess is
- * extern long telldir _((DIR*));
+ * extern long telldir (DIR*);
*/
#define HAS_TELLDIR_PROTO /**/
@@ -2488,7 +2488,7 @@
* This symbol, if defined, indicates that the system provides
* a prototype for the drand48() function. Otherwise, it is up
* to the program to supply one. A good guess is
- * extern double drand48 _((void));
+ * extern double drand48 (void);
*/
/*#define HAS_DRAND48_PROTO /**/
diff --git a/win32/config_H.gc b/win32/config_H.gc
index 5aa0c6b50e..efae62faf8 100644
--- a/win32/config_H.gc
+++ b/win32/config_H.gc
@@ -577,7 +577,7 @@
/* HAS_SHMAT_PROTOTYPE:
* This symbol, if defined, indicates that the sys/shm.h includes
* a prototype for shmat(). Otherwise, it is up to the program to
- * guess one. Shmat_t shmat _((int, Shmat_t, int)) is a good guess,
+ * guess one. Shmat_t shmat (int, Shmat_t, int) is a good guess,
* but not always right so it should be emitted by the program only
* when HAS_SHMAT_PROTOTYPE is not defined to avoid conflicting defs.
*/
@@ -2149,7 +2149,7 @@
* This symbol, if defined, indicates that the system provides
* a prototype for the telldir() function. Otherwise, it is up
* to the program to supply one. A good guess is
- * extern long telldir _((DIR*));
+ * extern long telldir (DIR*);
*/
#define HAS_TELLDIR_PROTO /**/
@@ -2488,7 +2488,7 @@
* This symbol, if defined, indicates that the system provides
* a prototype for the drand48() function. Otherwise, it is up
* to the program to supply one. A good guess is
- * extern double drand48 _((void));
+ * extern double drand48 (void);
*/
/*#define HAS_DRAND48_PROTO /**/
diff --git a/win32/config_H.vc b/win32/config_H.vc
index cf7eab9067..620afdef75 100644
--- a/win32/config_H.vc
+++ b/win32/config_H.vc
@@ -577,7 +577,7 @@
/* HAS_SHMAT_PROTOTYPE:
* This symbol, if defined, indicates that the sys/shm.h includes
* a prototype for shmat(). Otherwise, it is up to the program to
- * guess one. Shmat_t shmat _((int, Shmat_t, int)) is a good guess,
+ * guess one. Shmat_t shmat (int, Shmat_t, int) is a good guess,
* but not always right so it should be emitted by the program only
* when HAS_SHMAT_PROTOTYPE is not defined to avoid conflicting defs.
*/
@@ -2149,7 +2149,7 @@
* This symbol, if defined, indicates that the system provides
* a prototype for the telldir() function. Otherwise, it is up
* to the program to supply one. A good guess is
- * extern long telldir _((DIR*));
+ * extern long telldir (DIR*);
*/
#define HAS_TELLDIR_PROTO /**/
@@ -2488,7 +2488,7 @@
* This symbol, if defined, indicates that the system provides
* a prototype for the drand48() function. Otherwise, it is up
* to the program to supply one. A good guess is
- * extern double drand48 _((void));
+ * extern double drand48 (void);
*/
/*#define HAS_DRAND48_PROTO /**/
diff --git a/win32/makemain.pl b/win32/makemain.pl
index 740b6a212a..b230f58ff0 100644
--- a/win32/makemain.pl
+++ b/win32/makemain.pl
@@ -19,7 +19,7 @@ print "\tNULL,\n";
print "\t};\n";
print "\n";
foreach (@ARGV) {
- print "EXTERN_C void boot_$_ _((CV* cv));\n"
+ print "EXTERN_C void boot_$_ (CV* cv);\n"
}
print <<EOP;
diff --git a/win32/perllib.c b/win32/perllib.c
index d1d942c495..2494b44cd0 100644
--- a/win32/perllib.c
+++ b/win32/perllib.c
@@ -7,7 +7,7 @@
#include "perl.h"
#include "XSUB.h"
-static void xs_init _((void));
+static void xs_init (void);
DllExport int
RunPerl(int argc, char **argv, char **env, void *iosubsystem)
@@ -96,7 +96,7 @@ char *staticlinkmodules[] = {
NULL,
};
-EXTERN_C void boot_DynaLoader _((CV* cv));
+EXTERN_C void boot_DynaLoader (CV* cv);
static void
xs_init()
diff --git a/win32/runperl.c b/win32/runperl.c
index 336f2a87a5..e9286702aa 100644
--- a/win32/runperl.c
+++ b/win32/runperl.c
@@ -16,7 +16,7 @@ char *staticlinkmodules[] = {
NULL,
};
-EXTERN_C void boot_DynaLoader _((CV* cv _CPERLarg));
+EXTERN_C void boot_DynaLoader (CV* cv _CPERLarg);
static void
xs_init(CPERLarg)
diff --git a/win32/win32.h b/win32/win32.h
index a539a16854..18f8fabf4a 100644
--- a/win32/win32.h
+++ b/win32/win32.h
@@ -194,23 +194,23 @@ typedef unsigned short mode_t;
#define STRUCT_MGVTBL_DEFINITION \
struct mgvtbl { \
union { \
- int (CPERLscope(*svt_get)) _((SV *sv, MAGIC* mg)); \
+ int (CPERLscope(*svt_get)) (SV *sv, MAGIC* mg); \
char handle_VC_problem1[16]; \
}; \
union { \
- int (CPERLscope(*svt_set)) _((SV *sv, MAGIC* mg)); \
+ int (CPERLscope(*svt_set)) (SV *sv, MAGIC* mg); \
char handle_VC_problem2[16]; \
}; \
union { \
- U32 (CPERLscope(*svt_len)) _((SV *sv, MAGIC* mg)); \
+ U32 (CPERLscope(*svt_len)) (SV *sv, MAGIC* mg); \
char handle_VC_problem3[16]; \
}; \
union { \
- int (CPERLscope(*svt_clear)) _((SV *sv, MAGIC* mg)); \
+ int (CPERLscope(*svt_clear)) (SV *sv, MAGIC* mg); \
char handle_VC_problem4[16]; \
}; \
union { \
- int (CPERLscope(*svt_free)) _((SV *sv, MAGIC* mg)); \
+ int (CPERLscope(*svt_free)) (SV *sv, MAGIC* mg); \
char handle_VC_problem5[16]; \
}; \
}
@@ -218,7 +218,7 @@ struct mgvtbl { \
#define BASEOP_DEFINITION \
OP* op_next; \
OP* op_sibling; \
- OP* (CPERLscope(*op_ppaddr))_((ARGSproto)); \
+ OP* (CPERLscope(*op_ppaddr))(ARGSproto); \
char handle_VC_problem[12]; \
PADOFFSET op_targ; \
OPCODE op_type; \
@@ -231,7 +231,7 @@ struct mgvtbl { \
I32 any_i32; \
IV any_iv; \
long any_long; \
- void (CPERLscope(*any_dptr)) _((void*)); \
+ void (CPERLscope(*any_dptr)) (void*); \
char handle_VC_problem[16]; \
}
diff --git a/win32/win32thread.h b/win32/win32thread.h
index 512e6296e5..1fddc9e7d5 100644
--- a/win32/win32thread.h
+++ b/win32/win32thread.h
@@ -149,12 +149,12 @@ extern __declspec(thread) struct perl_thread *Perl_current_thread;
#endif
struct perl_thread;
-void Perl_alloc_thread_key _((void));
-int Perl_thread_create _((struct perl_thread *thr, thread_func_t *fn));
-void Perl_set_thread_self _((struct perl_thread *thr));
-struct perl_thread *Perl_getTHR _((void));
-void Perl_setTHR _((struct perl_thread *t));
-void Perl_init_thread_intern _((struct perl_thread *t));
+void Perl_alloc_thread_key (void);
+int Perl_thread_create (struct perl_thread *thr, thread_func_t *fn);
+void Perl_set_thread_self (struct perl_thread *thr);
+struct perl_thread *Perl_getTHR (void);
+void Perl_setTHR (struct perl_thread *t);
+void Perl_init_thread_intern (struct perl_thread *t);
END_EXTERN_C
View Lorry Controller Status