From bc726283c505c016567b3156526f1aeecc777244 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Wed, 15 Jun 2022 14:10:12 +1000
Subject: allow building with -DPERL_MEM_LOG on Win32

This appears to have been broken for a while, and became more broken
with 75acd14e, which made newSV_type() inline.

This will also prevent warnings about calls to undeclared functions
on systems that don't need symbols to be exported.
---
 makedef.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'makedef.pl')

diff --git a/makedef.pl b/makedef.pl
index ef77b83ce1..b1663b31e3 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -485,7 +485,14 @@ unless ($define{'PERL_TRACK_MEMPOOL'}) {
 }
 
 unless ($define{'PERL_MEM_LOG'}) {
-    ++$skip{PL_mem_log};
+    ++$skip{$_} foreach qw(
+                    PL_mem_log
+                    Perl_mem_log_alloc
+                    Perl_mem_log_realloc
+                    Perl_mem_log_free
+                    Perl_mem_log_new_sv
+                    Perl_mem_log_del_sv
+                );
 }
 
 unless ($define{'MULTIPLICITY'}) {
-- 
cgit v1.2.1