* fixed for non-x96

git-svn-id: trunk@4643 -

tests/webtbs/tw7425.pp

@@ -6,9 +6,11 @@ procedure a(r: real); overload;
 begin
 end;
 
+{$ifdef FPC_HAS_TYPE_EXTENDED}
 procedure a(r: extended); overload;
 begin
 end;
+{$endif}
 
 begin
   writeln(sizeof(real));