From 20ce7b12268a3d32b5b246928de5084322e709cf Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 2 Jun 1999 04:47:10 +0000
Subject: remove _() non-ansism

p4raw-id: //depot/perl@3518
---
 win32/GenCAPI.pl    |  4 ++--
 win32/config_H.bc   |  6 +++---
 win32/config_H.gc   |  6 +++---
 win32/config_H.vc   |  6 +++---
 win32/makemain.pl   |  2 +-
 win32/perllib.c     |  4 ++--
 win32/runperl.c     |  2 +-
 win32/win32.h       | 14 +++++++-------
 win32/win32thread.h | 12 ++++++------
 9 files changed, 28 insertions(+), 28 deletions(-)

(limited to 'win32')

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
 
-- 
cgit v1.2.1