mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add Perl_assert_()

Browse Source 
This is a long name equivalent to assert_().
This commit is contained in:
Karl Williamson 2025-09-03 10:29:30 -06:00 committed by Karl Williamson
parent 7d40756690
commit a45f6560fb
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
perl.h
View File

@ -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<assert()> 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*);