paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-06 23:01:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Real is now defined in the system unit being an unique type, fixes #7425

Browse Source 
git-svn-id: trunk@4628 -
This commit is contained in:
florian 2006-09-17 08:58:20 +00:00
parent 9e241152a9
commit d7fe89c63d
5 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -7290,6 +7290,7 @@ tests/webtbs/tw7227.pp svneol=native#text/plain
tests/webtbs/tw7276.pp svneol=native#text/plain
tests/webtbs/tw7372.pp svneol=native#text/plain
tests/webtbs/tw7379.pp svneol=native#text/plain
tests/webtbs/tw7425.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uw0555.pp svneol=native#text/plain

2
compiler/ppu.pas
View File

@ -43,7 +43,7 @@ type
{$endif Test_Double_checksum}
const
CurrentPPUVersion=63;
CurrentPPUVersion=64;
{ buffer sizes }
maxentrysize = 1024;

1
compiler/psystem.pas
View File

@ -233,7 +233,6 @@ implementation
addtype('Double',s64floattype);
{ extended size is the best real type for the target }
addtype('Extended',pbestrealtype^);
addtype('Real',s64floattype);
end;
{$ifdef x86}
if target_info.system<>system_x86_64_win64 then

7
rtl/inc/systemh.inc
View File

@ -65,6 +65,13 @@ Type
Cardinal = LongWord;
Integer = SmallInt;
{ moved here from psystem.pas
Delphi allows chose of overloaded procedure depending
on Real <-> Double, so use type here, see also tw7425.pp (FK) }
{$ifndef VER2_0}
Real = type Double;
{$endif VER2_0}
{$ifdef CPUI386}
{$define CPU32}

15
tests/webtbs/tw7425.pp Normal file
View File

@ -0,0 +1,15 @@
procedure a(r: double); overload;
begin
end;
procedure a(r: real); overload;
begin
end;
procedure a(r: extended); overload;
begin
end;
begin
writeln(sizeof(real));
end.