Browse Source

* Fixed compilation for case when extended <> cextended.

git-svn-id: branches/targetandroid@23486 -
yury 12 years ago
parent
commit
475bc2d09d
1 changed files with 1 additions and 1 deletions
  1. 1 1
      tests/test/cg/tcalext6.pp

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

@@ -211,7 +211,7 @@ begin
 end;
 
 {$ifdef FPC_HAS_TYPE_EXTENDED}
-procedure verify(val1, val2 : cextended; nr : Integer); overload;
+procedure verify(val1, val2 : extended; nr : Integer); overload;
 begin
   success := success and (val1 = val2);
   Write('Testing test ', nr , ', was ', val1, ', should be ', val2, '...');