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

* fixed test for x86_64 which has a native comp type

Browse Source
This commit is contained in:
florian 2004-11-02 21:08:33 +00:00
parent c94553080b
commit 72cb65819a
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

@ -33,7 +33,7 @@ begin
dbl1 := -1e-128; dbl1 := -1e-128;
comp1 := comp(dbl1); comp1 := comp(dbl1);
str(comp1,s); str(comp1,s);
{$ifdef cpui386} {$if defined(cpui386) or defined(cpux86_64)}
if s<>'-6.53142228756617E+0018' then if s<>'-6.53142228756617E+0018' then
{$else cpui386} {$else cpui386}
if s<>'-6531422287566170215' then if s<>'-6531422287566170215' then