No, it's not a const SV* if we subsequently call

[perl5.git] / embed.fnc

diff --git a/embed.fnc b/embed.fnc
index 031a8e6..d9b5f22 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1680,7 +1680,7 @@ s |bool   |vdie_common    |NULLOK const char *message|STRLEN msglen\
 sr     |char * |write_no_mem
 #if defined(PERL_MEM_LOG) && defined(PERL_MEM_LOG_STDERR)
 sn     |void   |mem_log_common |enum mem_log_type mlt|const UV n|const UV typesize \
-                               |NN const char *typename \
+                               |NN const char *type_name|NULLOK const SV *sv \
                                |Malloc_t oldalloc|Malloc_t newalloc \
                                |NN const char *filename|const int linenumber \
                                |NN const char *funcname