|
@@ -36,14 +36,14 @@ begin
|
|
comp1:=swap(comp1);
|
|
comp1:=swap(comp1);
|
|
{$endif FPC_DOUBLE_HILO_SWAPPED}
|
|
{$endif FPC_DOUBLE_HILO_SWAPPED}
|
|
str(comp1,s);
|
|
str(comp1,s);
|
|
-{$ifdef FPC_HAS_EXTENDED}
|
|
|
|
|
|
+{$ifdef FPC_HAS_TYPE_EXTENDED}
|
|
if s<>'-6.53142228756617E+0018' then
|
|
if s<>'-6.53142228756617E+0018' then
|
|
-{$else FPC_HAS_EXTENDED}
|
|
|
|
|
|
+{$else FPC_HAS_TYPE_EXTENDED}
|
|
{ this constant has been verified and is correct (FK) }
|
|
{ this constant has been verified and is correct (FK) }
|
|
{ doubles have slightly different precision on processors <> x86, because }
|
|
{ doubles have slightly different precision on processors <> x86, because }
|
|
{ intermediate calculations are not performed in 80 bit there (JM) }
|
|
{ intermediate calculations are not performed in 80 bit there (JM) }
|
|
if Copy(s,1,Length(s)-1)<>'-653142228756617021' then
|
|
if Copy(s,1,Length(s)-1)<>'-653142228756617021' then
|
|
-{$endif FPC_HAS_EXTENDED}
|
|
|
|
|
|
+{$endif FPC_HAS_TYPE_EXTENDED}
|
|
begin
|
|
begin
|
|
writeln(s);
|
|
writeln(s);
|
|
writeln('error');
|
|
writeln('error');
|