paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 20:08:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* better fix for detecting Comp's type

Browse Source 
git-svn-id: trunk@36879 -
This commit is contained in:
svenbarth 2017-08-12 09:00:06 +00:00
parent ff927eb11a
commit 677c35c083
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/trtti17.pp
View File

@ -91,7 +91,7 @@ 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))}
{$ifdef FPC_COMP_IS_INT64}
specialize TestTypeKind<Comp>(tkInt64);
{$else}
specialize TestTypeKind<Comp>(tkFloat);