mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

utf8.c: Initialize UTF8SKIP[] with INIT(), not DOINIT

Browse Source
This commit is contained in:
Karl Williamson 2025-09-20 12:37:14 -06:00 committed by Karl Williamson
parent 6ea5f2d40e
commit 8df915f5ca
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utf8.h
View File

@ -235,10 +235,7 @@ For details, see the description for L<perlapi/uv_to_utf8_flags>.
START_EXTERN_C
# ifndef DOINIT
EXTCONST unsigned char PL_utf8skip[];
# else
EXTCONST unsigned char PL_utf8skip[] = {
EXTCONST unsigned char PL_utf8skip[] INIT( {
/* 0x00 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */
/* 0x10 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */
/* 0x20 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */
@ -260,8 +257,7 @@ EXTCONST unsigned char PL_utf8skip[] = {
/* 0xFE */ 7,
/* More extended, Up to 72 bits (64-bit + reserved) */
/* 0xFF */ ASCII_PLATFORM_UTF8_MAXBYTES
};
# endif
});
END_EXTERN_C