From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Fri, 20 Jun 1997 11:46:50 +0000 (+0000)
Subject: corrected bad_type() prototype.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3bc5dc61eb7997c904fe06e07f74e776f3ee17eb;p=p5sagit%2Fp5-mst-13.2.git

corrected bad_type() prototype.

p4raw-id: //depot/perl@31
---

diff --git a/op.c b/op.c
index 3021154..1f673da 100644
--- a/op.c
+++ b/op.c
@@ -30,7 +30,7 @@
      : (*check[type])((OP*)o))
 
 static I32 list_assignment _((OP *o));
-static OP *bad_type _((I32 n, char *t, char *name, OP *kid));
+static void bad_type _((I32 n, char *t, char *name, OP *kid));
 static OP *modkids _((OP *o, I32 type));
 static OP *no_fh_allowed _((OP *o));
 static bool scalar_mod_type _((OP *o, I32 type));
@@ -77,7 +77,7 @@ char* name;
     return o;
 }
 
-static OP *
+static void
 bad_type(n, t, name, kid)
 I32 n;
 char *t;