From 1ca4e3744617c1063e7a6ef7324b988b5ac09d9e Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 17 May 2014 17:25:51 +0000
Subject: [PATCH] Parser : map xsd:string to UnicodeString.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3055 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/ws_helper/pascal_parser_intf.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/wst/trunk/ws_helper/pascal_parser_intf.pas b/wst/trunk/ws_helper/pascal_parser_intf.pas
index ee4dac6ef..e1cc85ea4 100644
--- a/wst/trunk/ws_helper/pascal_parser_intf.pas
+++ b/wst/trunk/ws_helper/pascal_parser_intf.pas
@@ -287,13 +287,13 @@ const
    SPECIAL_SIMPLE_TYPES_COUNT = 5 {$IFDEF WST_UNICODESTRING} + 1 {$ENDIF WST_UNICODESTRING};
      SPECIAL_SIMPLE_TYPES : Array[0..Pred(SPECIAL_SIMPLE_TYPES_COUNT)] Of array[0..2] of string = (
           ('Currency', 'TComplexCurrencyContentRemotable', 'decimal'),
+{$IFDEF WST_UNICODESTRING}
+          ('UnicodeString', 'TComplexUnicodeStringContentRemotable', 'string'),
+{$ENDIF WST_UNICODESTRING}
           ('string', 'TComplexStringContentRemotable', 'string'),
           ('WideString', 'TComplexWideStringContentRemotable', 'string'),
           ('AnsiChar', 'TComplexAnsiCharContentRemotable', 'string'),
           ('WideChar', 'TComplexWideCharContentRemotable', 'string')
-{$IFDEF WST_UNICODESTRING}
-         ,('UnicodeString', 'TComplexUnicodeStringContentRemotable', 'string')
-{$ENDIF WST_UNICODESTRING}
      );
 
 procedure AddSystemSymbol(