diff options
| -rw-r--r-- | intrpvar.h | 2 | ||||
| -rw-r--r-- | perl.h | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/intrpvar.h b/intrpvar.h index fe3f07f5eb..975bab07cf 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. */ @@ -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 { |