Merge 8c417c6 into 310f47b

Perl · Jul 3, 2021 · 7556765 · 7556765
2 parents 310f47b + 8c417c6
commit 7556765
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/scope.h b/scope.h
@@ -208,9 +208,11 @@ scope has the given name. C<name> must be a literal string.
     STMT_START {							\
         DEBUG_SCOPE("LEAVE \"" name "\"")				\
         if (PL_scopestack_name)	{					\
+            GCC_DIAG_IGNORE_STMT(-Wstring-compare);			\
             assert(((char*)PL_scopestack_name[PL_scopestack_ix-1]	\
                         == (char*)name)					\
                     || strEQ(PL_scopestack_name[PL_scopestack_ix-1], name));        \
+            GCC_DIAG_RESTORE_STMT;					\
         }								\
         pop_scope();							\
     } STMT_END