This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add SV allocation tracing to -Dm and PERL_MEM_LOG
[perl5.git] / handy.h
diff --git a/handy.h b/handy.h
index c07350d..39e3ef8 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -773,9 +773,14 @@ Malloc_t Perl_mem_log_free(Malloc_t oldalloc, const char *filename, const int li
 enum mem_log_type {
   MLT_ALLOC,
   MLT_REALLOC,
-  MLT_FREE
+  MLT_FREE,
+  MLT_NEW_SV,
+  MLT_DEL_SV
 };
 #  endif
+/* those are only used in sv.c */
+void Perl_mem_log_new_sv(const SV *sv, const char *filename, const int linenumber, const char *funcname);
+void Perl_mem_log_del_sv(const SV *sv, const char *filename, const int linenumber, const char *funcname);
 # endif
 
 #endif