paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 06:29:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* part of r25888, forgot to commit

Browse Source 
git-svn-id: trunk@25891 -
This commit is contained in:
Jonas Maebe 2013-10-31 13:50:35 +00:00
parent 85059f79fe
commit 96ac477b96
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/webtbs/tw2129.pp
View File

@ -35,7 +35,7 @@ begin
{$ifdef FPC_DOUBLE_HILO_SWAPPED} {$ifdef FPC_DOUBLE_HILO_SWAPPED}
comp1:=swap(comp1); comp1:=swap(comp1);
{$endif FPC_DOUBLE_HILO_SWAPPED} {$endif FPC_DOUBLE_HILO_SWAPPED}
str(comp1,s); str(comp1:23,s);
{$ifdef FPC_HAS_TYPE_EXTENDED} {$ifdef FPC_HAS_TYPE_EXTENDED}
if s<>'-6.53142228756617E+0018' then if s<>'-6.53142228756617E+0018' then
{$else FPC_HAS_TYPE_EXTENDED} {$else FPC_HAS_TYPE_EXTENDED}