summaryrefslogtreecommitdiff
path: root/perlapi.c
diff options
context:
space:
mode:
Diffstat (limited to 'perlapi.c')
-rw-r--r--perlapi.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/perlapi.c b/perlapi.c
index ac38dffdfb..99a549b403 100644
--- a/perlapi.c
+++ b/perlapi.c
@@ -4754,12 +4754,12 @@ Perl_magic_dump(pTHXo_ MAGIC *mg)
#undef Perl_default_protect
void*
-Perl_default_protect(pTHXo_ int *excpt, protect_body_t body, ...)
+Perl_default_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, ...)
{
void* retval;
va_list args;
va_start(args, body);
- retval = ((CPerlObj*)pPerl)->Perl_vdefault_protect(excpt, body, &args);
+ retval = ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, &args);
va_end(args);
return retval;
@@ -4767,9 +4767,9 @@ Perl_default_protect(pTHXo_ int *excpt, protect_body_t body, ...)
#undef Perl_vdefault_protect
void*
-Perl_vdefault_protect(pTHXo_ int *excpt, protect_body_t body, va_list *args)
+Perl_vdefault_protect(pTHXo_ volatile JMPENV *je, int *excpt, protect_body_t body, va_list *args)
{
- return ((CPerlObj*)pPerl)->Perl_vdefault_protect(excpt, body, args);
+ return ((CPerlObj*)pPerl)->Perl_vdefault_protect(je, excpt, body, args);
}
#undef Perl_reginitcolors