From a45f6560fb26a7e01e6b8f2b13f8a917a5756732 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 3 Sep 2025 10:29:30 -0600 Subject: [PATCH] Add Perl_assert_() This is a long name equivalent to assert_(). --- perl.h | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/perl.h b/perl.h index 46c41c174b..17f5441fbc 100644 --- a/perl.h +++ b/perl.h @@ -5178,8 +5178,8 @@ Gid_t getegid (void); __FILE__, __LINE__)); /* =for apidoc_section $directives -=for apidoc Am|void|assert_|bool expr -=for apidoc_item | |__ASSERT_ +=for apidoc ATmp|void|assert_|bool expr +=for apidoc_item Tm| |__ASSERT_ These are synonymous, used to wrap the libc C call in comma expressions in macro expansions, but you probably don't want to use them nor @@ -5233,13 +5233,13 @@ contexts in C, and in all contexts in C++. " file \"" __FILE__ "\", line %" LINE_Tf, \ STRINGIFY(what), (line_t) __LINE__), \ (void) 0)) -# define assert_(what) assert(what), -# define __ASSERT_(statement) assert(statement), +# define Perl_assert_(what) assert(what), #else # define Perl_assert(what) ((void) 0) -# define assert_(what) -# define __ASSERT_(statement) +# define Perl_assert_(what) #endif +#define assert_(what) Perl_assert_(what) +#define __ASSERT_(statement) Perl_assert_(statement) struct ufuncs { I32 (*uf_val)(pTHX_ IV, SV*);