From 906636b8242ef18a4f41befe1bec3be59a7d8ac4 Mon Sep 17 00:00:00 2001
From: Richard Leach <rich+perl@hyphen-dash-hyphen.info>
Date: Tue, 25 Jun 2019 22:08:12 +0100
Subject: [PATCH] New check for malloc_usable_size

---
 U/perl/d_malloc_useable_size.U | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 U/perl/d_malloc_useable_size.U

diff --git a/U/perl/d_malloc_useable_size.U b/U/perl/d_malloc_useable_size.U
new file mode 100644
index 0000000..bdd9dd6
--- /dev/null
+++ b/U/perl/d_malloc_useable_size.U
@@ -0,0 +1,26 @@
+?RCS: $Id$
+?RCS:
+?RCS: Copyright (c) 2019, Richard Leach
+?RCS: 
+?RCS: You may redistribute only under the terms of the Artistic Licence,
+?RCS: as specified in the README file that comes with the distribution.
+?RCS: You may reuse parts of this distribution only within the terms of
+?RCS: that same Artistic Licence; a copy of which may be found at the root
+?RCS: of the source tree for dist 3.0.
+?RCS:
+?MAKE:d_malloc_usable_size: Inlibc
+?MAKE:	-pick add $@ %<
+?S:d_malloc_usable_size:
+?S:	This symbol, if defined, indicates that the malloc_usable_size
+?S:	routine is available for use.
+?S:.
+?C:HAS_MALLOC_USABLE_SIZE:
+?C:	This symbol, if defined, indicates that the malloc_usable_size
+?C:	routine is available for use.
+?C:.
+?H:#$d_malloc_usable_size HAS_MALLOC_USABLE_SIZE		/**/
+?H:.
+?LINT:set d_malloc_usable_size
+: see if malloc_usable_size exists
+set malloc_usable_size d_malloc_usable_size
+eval $inlibc
-- 
2.17.0.windows.1

From 14605a33d8c588654bd0b904016f7ab68050abcf Mon Sep 17 00:00:00 2001
From: Richard Leach <rich+perl@hyphen-dash-hyphen.info>
Date: Tue, 25 Jun 2019 22:14:51 +0100
Subject: [PATCH] Add check for malloc_usable_size

---
 U/perl/d_malloc_size.U | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/U/perl/d_malloc_size.U b/U/perl/d_malloc_size.U
index 3d6e083..071426a 100644
--- a/U/perl/d_malloc_size.U
+++ b/U/perl/d_malloc_size.U
@@ -8,7 +8,7 @@
 ?RCS: that same Artistic License; a copy of which may be found at the root
 ?RCS: of the source tree for dist 3.0.
 ?RCS:
-?MAKE:d_malloc_size d_malloc_good_size: Inlibc
+?MAKE:d_malloc_size d_malloc_good_size d_malloc_usable_size: Inlibc
 ?MAKE:	-pick add $@ %<
 ?S:d_malloc_size:
 ?S:	This symbol, if defined, indicates that the malloc_size
@@ -18,6 +18,10 @@
 ?S:	This symbol, if defined, indicates that the malloc_good_size
 ?S:	routine is available for use.
 ?S:.
+?S:d_malloc_usable_size:
+?S:	This symbol, if defined, indicates that the malloc_usable_size
+?S:	routine is available for use.
+?S:.
 ?C:HAS_MALLOC_SIZE:
 ?C:	This symbol, if defined, indicates that the malloc_size
 ?C:	routine is available for use.
@@ -30,8 +34,15 @@
 ?C:.
 ?H:#$d_malloc_good_size HAS_MALLOC_GOOD_SIZE	/**/
 ?H:.
+?C:HAS_MALLOC_USABLE_SIZE:
+?C:	This symbol, if defined, indicates that the malloc_usable_size
+?C:	routine is available for use.
+?C:.
+?H:#$d_malloc_usable_size HAS_MALLOC_USABLE_SIZE		/**/
+?H:.
 ?LINT:set d_malloc_size
 ?LINT:set d_malloc_good_size
+?LINT:set d_malloc_usable_size
 : see if malloc_size exists
 set malloc_size d_malloc_size
 eval $inlibc
@@ -40,3 +51,6 @@ eval $inlibc
 set malloc_good_size d_malloc_good_size
 eval $inlibc
 
+: see if malloc_usable_size exists
+set malloc_usable_size d_malloc_usable_size
+eval $inlibc
-- 
2.17.0.windows.1