summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2005-10-31 14:51:48 +0000
committerNicholas Clark <nick@ccl4.org>2005-10-31 14:51:48 +0000
commit1754c1a12c44346c579c5581660df4064b19f4a0 (patch)
treeff519f47f9edf2597cd636d6dc5d332fda778c57 /proto.h
parent9fe371da3bdc2d1a5eae907101756f87eb5d2168 (diff)
downloadperl-1754c1a12c44346c579c5581660df4064b19f4a0.tar.gz
A more elegant way to deal with utf8n_to_uvchr() and utf8n_to_uvuni().
p4raw-id: //depot/perl@25926
Diffstat (limited to 'proto.h')
-rw-r--r--proto.h16
1 files changed, 16 insertions, 0 deletions
diff --git a/proto.h b/proto.h
index 3aa73de9b2..294d62b68c 100644
--- a/proto.h
+++ b/proto.h
@@ -2388,15 +2388,31 @@ PERL_CALLCONV UV Perl_utf8_to_uvchr(pTHX_ const U8 *s, STRLEN *retlen)
PERL_CALLCONV UV Perl_utf8_to_uvuni(pTHX_ const U8 *s, STRLEN *retlen)
__attribute__nonnull__(pTHX_1);
+
+#ifdef EBCDIC
PERL_CALLCONV UV Perl_utf8n_to_uvchr(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
__attribute__nonnull__(pTHX_1);
+#else
+/* PERL_CALLCONV UV Perl_utf8n_to_uvchr(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
+ __attribute__nonnull__(pTHX_1); */
+
+#endif
+
PERL_CALLCONV UV Perl_utf8n_to_uvuni(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
__attribute__nonnull__(pTHX_1);
+
+#ifdef EBCDIC
PERL_CALLCONV U8* Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv)
__attribute__nonnull__(pTHX_1);
+#else
+/* PERL_CALLCONV U8* Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv)
+ __attribute__nonnull__(pTHX_1); */
+
+#endif
+
/* PERL_CALLCONV U8* Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
__attribute__nonnull__(pTHX_1); */