Fix redeclaration compiler errors on EBCDIC
authorNicholas Clark <nick@ccl4.org>
Tue, 26 Feb 2013 03:53:52 +0000 (20:53 -0700)
committerKarl Williamson <public@khwilliamson.com>
Tue, 26 Feb 2013 04:12:44 +0000 (21:12 -0700)
This patch was posted in
http://markmail.org/message/pwjxbxnlazvxgsyw

perl.h
utfebcdic.h

index b265f07..0613d6e 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -4510,8 +4510,10 @@ EXTCONST  unsigned char PL_mod_latin1_uc[] = {
        248-32, 249-32, 250-32, 251-32, 252-32, 253-32, 254-32, 255
 };
 #else  /* ! DOINIT */
+#ifndef EBCDIC
 EXTCONST unsigned char PL_fold[];
 EXTCONST unsigned char PL_fold_latin1[];
+#endif
 EXTCONST unsigned char PL_mod_latin1_uc[];
 EXTCONST unsigned char PL_latin1_lc[];
 #endif
index c6001b2..e7f5f32 100644 (file)
@@ -503,6 +503,10 @@ EXTCONST unsigned char PL_fold[] = { /* fast EBCDIC case folding table, 'A' =>
 };
 #endif          /* 037 */
 
+/* Since the EBCDIC code pages are isomorphic to Latin1, that table is merely a
+ * duplicate */
+EXTCONST unsigned char * PL_fold_latin1 = PL_fold;
+
 #else
 EXTCONST unsigned char PL_utf8skip[];
 EXTCONST unsigned char PL_e2utf[];
@@ -510,12 +514,9 @@ EXTCONST unsigned char PL_utf2e[];
 EXTCONST unsigned char PL_e2a[];
 EXTCONST unsigned char PL_a2e[];
 EXTCONST unsigned char PL_fold[];
+EXTCONST unsigned char * PL_fold_latin1;
 #endif
 
-/* Since the EBCDIC code pages are isomorphic to Latin1, that table is merely a
- * duplicate */
-EXTCONST unsigned char * PL_fold_latin1 = PL_fold;
-
 END_EXTERN_C
 
 /* EBCDIC-happy ways of converting native code to UTF-8 */