Fix parameter name for die_unwind() in embed.fnc

diff --git a/embed.fnc b/embed.fnc
index 1612fe7..4f3ee7d 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -290,7 +290,7 @@ pM  |void   |delete_eval_scope
 Apd    |OP*    |die_sv         |NN SV *baseex
 Afpd   |OP*    |die            |NULLOK const char* pat|...
 : Used in util.c
-pr     |void   |die_unwind     |NN SV* ex
+pr     |void   |die_unwind     |NN SV* msv
 Ap     |void   |dounwind       |I32 cxix
 : FIXME
 pmb    |bool   |do_aexec       |NULLOK SV* really|NN SV** mark|NN SV** sp

diff --git a/proto.h b/proto.h
index 2593a1c..ce76039 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -537,11 +537,11 @@ PERL_CALLCONV OP* Perl_die_sv(pTHX_ SV *baseex)
 PERL_CALLCONV OP*      Perl_die(pTHX_ const char* pat, ...)
                        __attribute__format__null_ok__(__printf__,pTHX_1,pTHX_2);
 
-PERL_CALLCONV void     Perl_die_unwind(pTHX_ SV* ex)
+PERL_CALLCONV void     Perl_die_unwind(pTHX_ SV* msv)
                        __attribute__noreturn__
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_DIE_UNWIND    \
-       assert(ex)
+       assert(msv)
 
 PERL_CALLCONV void     Perl_dounwind(pTHX_ I32 cxix);
 /* PERL_CALLCONV bool  Perl_do_aexec(pTHX_ SV* really, SV** mark, SV** sp)