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

regcomp_internal.h: removed unused PREPARE_TO_DIE

Browse Source 
We are now always prepared for death.
This commit is contained in:
Tony Cook 2024-02-21 15:25:57 +11:00 committed by mauke
parent e05687f959
commit eb62f8dc57
1 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
regcomp_internal.h
View File

@ -870,21 +870,6 @@ static const scan_data_t zero_scan_data = {
* past a nul byte. */
#define SKIP_IF_CHAR(s, e) (!*(s) ? 0 : UTF ? UTF8_SAFE_SKIP(s, e) : 1)
/* Set up to clean up after our imminent demise */
#define PREPARE_TO_DIE \
STMT_START { \
if (RExC_rx_sv) \
SAVEFREESV(RExC_rx_sv); \
if (RExC_open_parens) \
SAVEFREEPV(RExC_open_parens); \
if (RExC_close_parens) \
SAVEFREEPV(RExC_close_parens); \
if (RExC_logical_to_parno) \
SAVEFREEPV(RExC_logical_to_parno); \
if (RExC_parno_to_logical) \
SAVEFREEPV(RExC_parno_to_logical); \
} STMT_END
/*
* Calls SAVEDESTRUCTOR_X if needed, then calls Perl_croak with the given
* arg. Show regex, up to a maximum length. If it's too long, chop and add