paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 18:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Redefine ucs4char as subrange type ($0..$10ffff), which is the legal

Browse Source 
Unicode range.

git-svn-id: trunk@6618 -
This commit is contained in:
daniel 2007-02-23 14:41:33 +00:00
parent 8b60a69fb2
commit 0cc43888e9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/systemh.inc
View File

@ -223,7 +223,7 @@ Type
PAnsiChar = PChar; PAnsiChar = PChar;
PPAnsiChar = PPChar; PPAnsiChar = PPChar;
UCS4Char = type LongWord; UCS4Char = type 0..$10ffff;
PUCS4Char = ^UCS4Char; PUCS4Char = ^UCS4Char;
TUCS4CharArray = array[0..$effffff] of UCS4Char; TUCS4CharArray = array[0..$effffff] of UCS4Char;
PUCS4CharArray = ^TUCS4CharArray; PUCS4CharArray = ^TUCS4CharArray;