From ff927eb11a72ffd819b276850cfe6e125dcd4a53 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Sat, 12 Aug 2017 08:56:10 +0000
Subject: [PATCH] * fix test due to WideString = UnicodeString and Comp =
 Extended on some platforms

git-svn-id: trunk@36878 -
---
 tests/test/trtti17.pp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/tests/test/trtti17.pp b/tests/test/trtti17.pp
index 2bbe47274f..e11873dec9 100644
--- a/tests/test/trtti17.pp
+++ b/tests/test/trtti17.pp
@@ -78,7 +78,11 @@ begin
   specialize TestTypeKind<IDispatch>(tkInterface);
   specialize TestTypeKind<ShortString>(tkSString);
   specialize TestTypeKind<AnsiString>(tkAString);
+{$ifdef FPC_WIDESTRING_EQUAL_UNICODESTRING}
+  specialize TestTypeKind<WideString>(tkUString);
+{$else}
   specialize TestTypeKind<WideString>(tkWString);
+{$endif}
   specialize TestTypeKind<UnicodeString>(tkUString);
   specialize TestTypeKind<AnsiChar>(tkChar);
   specialize TestTypeKind<WideChar>(tkWChar);
@@ -87,7 +91,11 @@ begin
   specialize TestTypeKind<Double>(tkFloat);
   specialize TestTypeKind<Extended>(tkFloat);
   specialize TestTypeKind<Currency>(tkFloat);
+{$if not (defined(CPUI386) or defined(CPUX86_64)) or (defined(WIN64) and sizeof(Extended) = sizeof(Double))}
   specialize TestTypeKind<Comp>(tkInt64);
+{$else}
+  specialize TestTypeKind<Comp>(tkFloat);
+{$endif}
   specialize TestTypeKind<TSet>(tkSet);
   specialize TestTypeKind<Variant>(tkVariant);
   {specialize TestTypeKind<file>(tkFile);