This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
S_op_destroy() was not static. Also tidy all other STATIC/static
authorNicholas Clark <nick@ccl4.org>
Thu, 5 Apr 2007 08:56:10 +0000 (08:56 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 5 Apr 2007 08:56:10 +0000 (08:56 +0000)
declarations onto the same line as the return type, to make checking
this easier.

p4raw-id: //depot/perl@30846

dump.c
op.c
pp_ctl.c
pp_pack.c

diff --git a/dump.c b/dump.c
index 76aec2b..e85e5e9 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -2037,8 +2037,7 @@ Perl_debprofdump(pTHX)
  *    XML variants of most of the above routines
  */
 
-STATIC
-void
+STATIC void
 S_xmldump_attr(pTHX_ I32 level, PerlIO *file, const char* pat, ...)
 {
     va_list args;
diff --git a/op.c b/op.c
index 7c7e74f..f1a1c1b 100644 (file)
--- a/op.c
+++ b/op.c
@@ -384,7 +384,7 @@ Perl_allocmy(pTHX_ const char *const name)
 /* free the body of an op without examining its contents.
  * Always use this rather than FreeOp directly */
 
-void
+static void
 S_op_destroy(pTHX_ OP *o)
 {
     if (o->op_latefree) {
@@ -4795,8 +4795,7 @@ S_ref_array_or_hash(pTHX_ OP *cond)
    op_other if the match fails.)
  */
 
-STATIC
-OP *
+STATIC OP *
 S_newGIVWHENOP(pTHX_ OP *cond, OP *block,
                   I32 enter_opcode, I32 leave_opcode,
                   PADOFFSET entertarg)
@@ -4850,8 +4849,7 @@ S_newGIVWHENOP(pTHX_ OP *cond, OP *block,
    
    [*] possibly surprising
  */
-STATIC
-bool
+STATIC bool
 S_looks_like_bool(pTHX_ const OP *o)
 {
     dVAR;
index 7fd8145..e01d7e5 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3730,8 +3730,7 @@ PP(pp_leavegiven)
 }
 
 /* Helper routines used by pp_smartmatch */
-STATIC
-PMOP *
+STATIC PMOP *
 S_make_matcher(pTHX_ regexp *re)
 {
     dVAR;
@@ -3744,8 +3743,7 @@ S_make_matcher(pTHX_ regexp *re)
     return matcher;
 }
 
-STATIC
-bool
+STATIC bool
 S_matcher_matches_sv(pTHX_ PMOP *matcher, SV *sv)
 {
     dVAR;
@@ -3759,8 +3757,7 @@ S_matcher_matches_sv(pTHX_ PMOP *matcher, SV *sv)
     return (SvTRUEx(POPs));
 }
 
-STATIC
-void
+STATIC void
 S_destroy_matcher(pTHX_ PMOP *matcher)
 {
     dVAR;
@@ -3778,8 +3775,7 @@ PP(pp_smartmatch)
 /* This version of do_smartmatch() implements the
  * table of smart matches that is found in perlsyn.
  */
-STATIC
-OP *
+STATIC OP *
 S_do_smartmatch(pTHX_ HV *seen_this, HV *seen_other)
 {
     dVAR;
index 51b42d9..f2f79f1 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -1179,8 +1179,7 @@ Perl_unpackstring(pTHX_ const char *pat, const char *patend, const char *s, cons
     return unpack_rec(&sym, s, s, strend, NULL );
 }
 
-STATIC
-I32
+STATIC I32
 S_unpack_rec(pTHX_ tempsym_t* symptr, const char *s, const char *strbeg, const char *strend, const char **new_s )
 {
     dVAR; dSP;