This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp.c: Remove macro no-longer called
authorKarl Williamson <public@khwilliamson.com>
Fri, 11 Nov 2011 18:59:05 +0000 (11:59 -0700)
committerKarl Williamson <public@khwilliamson.com>
Fri, 11 Nov 2011 20:31:00 +0000 (13:31 -0700)
pp.c

diff --git a/pp.c b/pp.c
index 8b5f26c..7059a48 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -3430,17 +3430,9 @@ PP(pp_crypt)
 /* Generally UTF-8 and UTF-EBCDIC are indistinguishable at this level.  So 
  * most comments below say UTF-8, when in fact they mean UTF-EBCDIC as well */
 
-/* Below are several macros that generate code */
 /* Generates code to store a unicode codepoint c that is known to occupy
- * exactly two UTF-8 and UTF-EBCDIC bytes; it is stored into p and p+1. */
-#define STORE_UNI_TO_UTF8_TWO_BYTE(p, c)                                   \
-    STMT_START {                                                           \
-       *(p) = UTF8_TWO_BYTE_HI(c);                                         \
-       *((p)+1) = UTF8_TWO_BYTE_LO(c);                                     \
-    } STMT_END
-
-/* Like STORE_UNI_TO_UTF8_TWO_BYTE, but advances p to point to the next
- * available byte after the two bytes */
+ * exactly two UTF-8 and UTF-EBCDIC bytes; it is stored into p and p+1,
+ * and p is advanced to point to the next available byte after the two bytes */
 #define CAT_UNI_TO_UTF8_TWO_BYTE(p, c)                                     \
     STMT_START {                                                           \
        *(p)++ = UTF8_TWO_BYTE_HI(c);                                       \