From 0cc43888e9cee4d24c8c0ff6df7c1e833aacf868 Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Fri, 23 Feb 2007 14:41:33 +0000
Subject: [PATCH]   * Redefine ucs4char as subrange type ($0..$10ffff), which
 is the legal     Unicode range.

git-svn-id: trunk@6618 -
---
 rtl/inc/systemh.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index a33e50c8e5..45858a4492 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -223,7 +223,7 @@ Type
   PAnsiChar           = PChar;
   PPAnsiChar          = PPChar;
 
-  UCS4Char            = type LongWord;
+  UCS4Char            = type 0..$10ffff;
   PUCS4Char           = ^UCS4Char;
   TUCS4CharArray      = array[0..$effffff] of UCS4Char;
   PUCS4CharArray      = ^TUCS4CharArray;