XXX memlog

Perl · Nov 13, 2023 · 8124f9b · 8124f9b
1 parent 44b1983
commit 8124f9b
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/embed.fnc b/embed.fnc
@@ -5968,7 +5968,7 @@ ST	|void	|mem_log_common |enum mem_log_type mlt			\
 				|const UV typesize			\
 				|NN const char *type_name		\
 				|NULLOK const SV *sv			\
-				|Malloc_t oldalloc			\
+				|const Malloc_t oldalloc		\
 				|Malloc_t newalloc			\
 				|NN const char *filename		\
 				|const int linenumber			\
@@ -6003,7 +6003,7 @@ CTp	|Malloc_t|mem_log_realloc					\
 				|const UV n				\
 				|const UV typesize			\
 				|NN const char *type_name		\
-				|Malloc_t oldalloc			\
+				|const Malloc_t oldalloc		\
 				|Malloc_t newalloc			\
 				|NN const char *filename		\
 				|const int linenumber			\

diff --git a/proto.h b/proto.h
diff --git a/util.c b/util.c
@@ -4879,7 +4879,7 @@ Perl_debug_hash_seed(pTHX_ bool via_debug_h)
 static void
 S_mem_log_common(enum mem_log_type mlt, const UV n, 
                  const UV typesize, const char *type_name, const SV *sv,
-                 Malloc_t oldalloc, Malloc_t newalloc,
+                 const Malloc_t oldalloc, Malloc_t newalloc,
                  const char *filename, const int linenumber,
                  const char *funcname)
 {
@@ -5027,7 +5027,7 @@ Perl_mem_log_alloc(const UV n, const UV typesize, const char *type_name,
 
 Malloc_t
 Perl_mem_log_realloc(const UV n, const UV typesize, const char *type_name,
-                     Malloc_t oldalloc, Malloc_t newalloc, 
+                     const Malloc_t oldalloc, Malloc_t newalloc,
                      const char *filename, const int linenumber, 
                      const char *funcname)
 {