paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 10:58:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix test due to WideString = UnicodeString and Comp = Extended on some platforms

Browse Source 
git-svn-id: trunk@36878 -
This commit is contained in:
svenbarth 2017-08-12 08:56:10 +00:00
parent e3ffeed1b2
commit ff927eb11a
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/test/trtti17.pp
View File

@ -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);