From 7918f24d20384771923d344a382e1d16d9552018 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Tue, 12 Feb 2008 13:15:20 +0000 Subject: assert() that every NN argument is not NULL. Otherwise we have the ability to create landmines that will explode under someone in the future when they upgrade their compiler to one with better optimisation. We've already done this at least twice. (Yes, some of the assertions are after code that would already have SEGVd because it already deferences a pointer, but they are put in to make it easier to automate checking that each and every case is covered.) Add a tool, checkARGS_ASSERT.pl, to check that every case is covered. p4raw-id: //depot/perl@33291 --- reentr.c | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'reentr.c') diff --git a/reentr.c b/reentr.c index bae687679d..25fccf858b 100644 --- a/reentr.c +++ b/reentr.c @@ -314,6 +314,11 @@ Perl_reentrant_retry(const char *f, ...) dTHX; void *retptr = NULL; va_list ap; +#ifdef USE_REENTRANT_API + /* Easier to special case this here than in embed.pl. (Look at what it + generates for proto.h) */ + PERL_ARGS_ASSERT_REENTRANT_RETRY; +#endif va_start(ap, f); { #ifdef USE_REENTRANT_API -- cgit v1.2.1