summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
Diffstat (limited to 'util.c')
-rw-r--r--util.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/util.c b/util.c
index 59becd4f68..c75b39d5c8 100644
--- a/util.c
+++ b/util.c
@@ -5153,7 +5153,7 @@ S_mem_log_common(enum mem_log_type mlt, const UV n,
# define MEM_LOG_TIME_FMT "%10d.%06d: "
# define MEM_LOG_TIME_ARG (int)tv.tv_sec, (int)tv.tv_usec
struct timeval tv;
- gettimeofday(&tv, 0);
+ PerlProc_gettimeofday(&tv, 0);
# else
# define MEM_LOG_TIME_FMT "%10d: "
# define MEM_LOG_TIME_ARG (int)when
@@ -5279,6 +5279,8 @@ Perl_mem_log_new_sv(const SV *sv,
const char *filename, const int linenumber,
const char *funcname)
{
+ PERL_ARGS_ASSERT_MEM_LOG_NEW_SV;
+
mem_log_common_if(MLT_NEW_SV, 0, 0, "", sv, NULL, NULL,
filename, linenumber, funcname);
}
@@ -5288,6 +5290,8 @@ Perl_mem_log_del_sv(const SV *sv,
const char *filename, const int linenumber,
const char *funcname)
{
+ PERL_ARGS_ASSERT_MEM_LOG_DEL_SV;
+
mem_log_common_if(MLT_DEL_SV, 0, 0, "", sv, NULL, NULL,
filename, linenumber, funcname);
}