Selaa lähdekoodia

* Fixed compilation on targets where sizeof(cextended)=12.

git-svn-id: trunk@23614 -
yury 12 vuotta sitten
vanhempi
commit
fd873c2ee0
1 muutettua tiedostoa jossa 2 lisäystä ja 2 poistoa
  1. 2 2
      tests/test/cg/tcalext6.pp

+ 2 - 2
tests/test/cg/tcalext6.pp

@@ -210,8 +210,8 @@ begin
     WriteLn('Failed');
     WriteLn('Failed');
 end;
 end;
 
 
-{$ifdef FPC_HAS_TYPE_EXTENDED}
-procedure verify(val1, val2 : extended; nr : Integer); overload;
+{$if defined(FPC_HAS_TYPE_EXTENDED) and (sizeof(double)<>sizeof(cextended))}
+procedure verify(val1, val2 : cextended; nr : Integer); overload;
 begin
 begin
   success := success and (val1 = val2);
   success := success and (val1 = val2);
   Write('Testing test ', nr , ', was ', val1, ', should be ', val2, '...');
   Write('Testing test ', nr , ', was ', val1, ', should be ', val2, '...');