[PATCH 1/6] test cfree and aligned_alloc aliases

[Eric Wong <e@80x24.org>]

These aliases aren't necessary for modern glibc, at least,
but they also don't hurt.  This quiets an old warning about
cfree.
---
 .gitignore |  1 +
 Mwrap.xs   |  4 +++-
 t/mwrap.t  | 31 +++++++++++++++++++++++++++++++
 3 files changed, 35 insertions(+), 1 deletion(-)

diff --git a/.gitignore b/.gitignore
index 10623de..c228ee1 100644
--- a/.gitignore
+++ b/.gitignore
@@ -9,3 +9,4 @@
 /blib
 /pm_to_blib
 /config.mak
+/_Inline
diff --git a/Mwrap.xs b/Mwrap.xs
index 31e9394..518edb1 100644
--- a/Mwrap.xs
+++ b/Mwrap.xs
@@ -542,8 +542,10 @@ int posix_memalign(void **p, size_t alignment, size_t size)
 	return internal_memalign(p, alignment, size, RETURN_ADDRESS(0));
 }
 
+/* these aliases aren't needed for glibc, not sure about other libcs... */
 void *aligned_alloc(size_t, size_t) __attribute__((alias("memalign")));
-void cfree(void *) __attribute__((alias("free")));
+void cfree(void *) __attribute__((__nothrow__))
+		__attribute__((__leaf__)) __attribute__((alias("free")));
 
 void *valloc(size_t size)
 {
diff --git a/t/mwrap.t b/t/mwrap.t
index c6e589c..0bb3ea8 100644
--- a/t/mwrap.t
+++ b/t/mwrap.t
@@ -141,6 +141,37 @@ diag slurp($out);
 is(Devel::Mwrap::quiet(1), 0, 'was not quiet, before');
 is(Devel::Mwrap::quiet(0), 1, 'was quiet, before');
 
+SKIP: {
+	eval { require Inline::C } or skip 'Inline::C not available', 1;
+	$ENV{TEST_ALIASES} or skip 'TEST_ALIASES unset', 1;
+	my $c_src = <<'EOM';
+#include <stdlib.h>
+void cfree(void *); /* lold glibc version */
+int test_aliases()
+{
+	size_t i;
+	void *p;
+	for (i = 0; i < 100; i++) {
+		if (i % 3 == 0)
+			p = aligned_alloc(64, i);
+		else
+			p = malloc(i);
+		if (i % 2 == 0)
+			cfree(p);
+		else
+			free(p);
+	}
+	return 3;
+}
+EOM
+	eval <<'EOM';
+use Inline C => $c_src, BUILD_NOISY => 1
+EOM
+	BAIL_OUT "cannot build $@" if $@;
+	is(test_aliases(), 3,
+		'aligned_alloc + cfree function ran w/o crashing');
+};
+
 done_testing();
 
 sub slurp {