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

diff --git a/intrpvar.h b/intrpvar.h
index fe3f07f..975bab0 100644 (file)
--- 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 (file)
--- 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 {