-/* This file is part of the Scalar::Vec::Util Perl module.
- * See http://search.cpan.org/dist/Scalar-Vec-Util/ */
+/* This file is part of the Test::Valgrind Perl module.
+ * See http://search.cpan.org/dist/Test::Valgrind/ */
#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
# define DEBUGGING 0
#endif
-const char *tvtxs_leaky = NULL;
+const char *tv_leaky = NULL;
+
+/* malloc() on Windows needs the current interpreter. */
+
+#ifdef PERL_IMPLICIT_SYS
+# define TV_LEAK_PROTO pTHX
+# define TV_LEAK_ARG aTHX
+#else
+# define TV_LEAK_PROTO void
+# define TV_LEAK_ARG
+#endif
+
+extern void tv_leak(TV_LEAK_PROTO);
+
+extern void tv_leak(TV_LEAK_PROTO) {
+ tv_leaky = malloc(10000);
+
+ return;
+}
/* --- XS ------------------------------------------------------------------ */
void
leak()
CODE:
- Newx(tvtxs_leaky, 10000, char);
+ tv_leak(TV_LEAK_ARG);
XSRETURN_UNDEF;
SV *
notleak(SV *sv)
CODE:
- Newx(tvtxs_leaky, 10000, char);
- Safefree(tvtxs_leaky);
+ Newx(tv_leaky, 10000, char);
+ Safefree(tv_leaky);
RETVAL = newSVsv(sv);
OUTPUT:
RETVAL