This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove _memEQs, _memNEs
authorKarl Williamson <khw@cpan.org>
Fri, 3 Nov 2017 03:02:25 +0000 (21:02 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 6 Nov 2017 19:50:06 +0000 (12:50 -0700)
All uses of these private macros have been replaced by other calls.

handy.h

diff --git a/handy.h b/handy.h
index 2646ca1..c38d15a 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -486,12 +486,6 @@ Returns zero if non-equal, or non-zero if equal.
         (((sizeof(s2)-1) == (l)) && memEQ((s1), ("" s2 ""), (sizeof(s2)-1)))
 #define memNEs(s1, l, s2) (! memEQs(s1, l, s2))
 
-/* memEQ and memNE where second comparand is a string constant
- * and we can assume the length of s1 is at least that of the string */
-#define _memEQs(s1, s2) \
-        (memEQ((s1), ("" s2 ""), (sizeof(s2)-1)))
-#define _memNEs(s1, s2) (memNE((s1),("" s2 ""),(sizeof(s2)-1)))
-
 #define memBEGINs(s1, l, s2)                                                \
             (   (l) >= sizeof(s2) - 1                                       \
              && memEQ(s1, "" s2 "", sizeof(s2)-1))