assert_(...)

This new macro expands to ‘assert(...),’ (with a trailing comma) under
debugging builds; the empty string otherwise.

It allows for the removal of some #ifdef DEBUGGINGs, which could not be
avoided otherwise.

1 files changed, 5 insertions, 0 deletions

diff --git a/perl.h b/perl.h
index ad8f6a9f4a..af4e9bfa83 100644
--- a/perl.h
+++ b/perl.h
@@ -3868,6 +3868,11 @@ Gid_t getegid (void);
 #ifndef assert
 #  define assert(what)	Perl_assert(what)
 #endif
+#ifdef DEBUGGING
+#  define assert_(what)	assert(what),
+#else
+#  define assert_(what)
+#endif
 
 struct ufuncs {
     I32 (*uf_val)(pTHX_ IV, SV*);