paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-11 12:10:43 +01: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<Double>(tkFloat);
specialize TestTypeKind<Extended>(tkFloat); specialize TestTypeKind<Extended>(tkFloat);
specialize TestTypeKind<Currency>(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); specialize TestTypeKind<Comp>(tkInt64);
{$else} {$else}
specialize TestTypeKind<Comp>(tkFloat); specialize TestTypeKind<Comp>(tkFloat);