paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 09:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed for non-x96

Browse Source 
git-svn-id: trunk@4643 -
This commit is contained in:
Jonas Maebe 2006-09-18 08:09:42 +00:00
parent 08612ed157
commit 07bbce6fa1
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbs/tw7425.pp
View File

@ -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));