remove _() non-ansism

[p5sagit/p5-mst-13.2.git] / pp_ctl.c

diff --git a/pp_ctl.c b/pp_ctl.c
index 44c2b52..d44a490 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -29,27 +29,27 @@
 #define CALLOP this->*PL_op
 #else
 #define CALLOP *PL_op
-static void *docatch_body _((va_list args));
-static OP *docatch _((OP *o));
-static OP *dofindlabel _((OP *o, char *label, OP **opstack, OP **oplimit));
-static void doparseform _((SV *sv));
-static I32 dopoptoeval _((I32 startingblock));
-static I32 dopoptolabel _((char *label));
-static I32 dopoptoloop _((I32 startingblock));
-static I32 dopoptosub _((I32 startingblock));
-static I32 dopoptosub_at _((PERL_CONTEXT *cxstk, I32 startingblock));
-static void save_lines _((AV *array, SV *sv));
-static I32 sortcv _((SV *a, SV *b));
-static void qsortsv _((SV **array, size_t num_elts, I32 (*fun)(SV *a, SV *b)));
-static OP *doeval _((int gimme, OP** startop));
-static PerlIO *doopen_pmc _((const char *name, const char *mode));
-static I32 sv_ncmp _((SV *a, SV *b));
-static I32 sv_i_ncmp _((SV *a, SV *b));
-static I32 amagic_ncmp _((SV *a, SV *b));
-static I32 amagic_i_ncmp _((SV *a, SV *b));
-static I32 amagic_cmp _((SV *str1, SV *str2));
-static I32 amagic_cmp_locale _((SV *str1, SV *str2));
-static void free_closures _((void));
+static void *docatch_body (va_list args);
+static OP *docatch (OP *o);
+static OP *dofindlabel (OP *o, char *label, OP **opstack, OP **oplimit);
+static void doparseform (SV *sv);
+static I32 dopoptoeval (I32 startingblock);
+static I32 dopoptolabel (char *label);
+static I32 dopoptoloop (I32 startingblock);
+static I32 dopoptosub (I32 startingblock);
+static I32 dopoptosub_at (PERL_CONTEXT *cxstk, I32 startingblock);
+static void save_lines (AV *array, SV *sv);
+static I32 sortcv (SV *a, SV *b);
+static void qsortsv (SV **array, size_t num_elts, I32 (*fun)(SV *a, SV *b));
+static OP *doeval (int gimme, OP** startop);
+static PerlIO *doopen_pmc (const char *name, const char *mode);
+static I32 sv_ncmp (SV *a, SV *b);
+static I32 sv_i_ncmp (SV *a, SV *b);
+static I32 amagic_ncmp (SV *a, SV *b);
+static I32 amagic_i_ncmp (SV *a, SV *b);
+static I32 amagic_cmp (SV *str1, SV *str2);
+static I32 amagic_cmp_locale (SV *str1, SV *str2);
+static void free_closures (void);
 #endif
 
 PP(pp_wantarray)
@@ -2178,12 +2178,12 @@ PP(pp_goto)
            if (CvXSUB(cv)) {
 #ifdef PERL_XSUB_OLDSTYLE
                if (CvOLDSTYLE(cv)) {
-                   I32 (*fp3)_((int,int,int));
+                   I32 (*fp3)(int,int,int);
                    while (SP > mark) {
                        SP[1] = SP[0];
                        SP--;
                    }
-                   fp3 = (I32(*)_((int,int,int)))CvXSUB(cv);
+                   fp3 = (I32(*)(int,int,int)))CvXSUB(cv;
                    items = (*fp3)(CvXSUBANY(cv).any_i32,
                                   mark - PL_stack_base + 1,
                                   items);