From: Vincent Pit <vince@profvince.com>
Date: Wed, 15 Jul 2009 20:08:39 +0000 (+0200)
Subject: The op_free() hook doesn't need to return an OP*, so introduce a new typedef for... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=799dfa8f13d23040c29f657b9be4b8c752194cac;p=p5sagit%2Fp5-mst-13.2.git

The op_free() hook doesn't need to return an OP*, so introduce a new typedef for OP hooks
---

diff --git a/intrpvar.h b/intrpvar.h
index fe3f07f..975bab0 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -170,7 +170,7 @@ PERLVARA(Icolors,6,	char *)		/* from regcomp.c */
 PERLVARI(Ipeepp,	peep_t, MEMBER_TO_FPTR(Perl_peep))
 					/* Pointer to peephole optimizer */
 
-PERLVARI(Iopfreehook,	Perl_check_t, 0) /* op_free() hook */
+PERLVARI(Iopfreehook,	Perl_ophook_t, 0) /* op_free() hook */
 
 PERLVARI(Imaxscream,	I32,	-1)
 PERLVARI(Ireginterp_cnt,I32,	 0)	/* Whether "Regexp" was interpolated. */
diff --git a/perl.h b/perl.h
index 7cdcd16..6fafe9a 100644
--- a/perl.h
+++ b/perl.h
@@ -4732,6 +4732,7 @@ typedef void (*XSUBADDR_t) (pTHX_ CV *);
 
 typedef OP* (CPERLscope(*Perl_ppaddr_t))(pTHX);
 typedef OP* (CPERLscope(*Perl_check_t)) (pTHX_ OP*);
+typedef void(CPERLscope(*Perl_ophook_t))(pTHX_ OP*);
 
 /* Interpreter exitlist entry */
 typedef struct exitlistentry {