paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 10:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* auto-converting from int64 to real is again allowed for all modes

Browse Source 
(it's allowed in Delphi too)
This commit is contained in:
Jonas Maebe 2001-10-16 17:15:44 +00:00
parent fbb3e99a5e
commit 388e8a76a8
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/types.pas
View File

@ -1391,13 +1391,8 @@ implementation
begin { ordinal to real }
if is_integer(def_from) then
begin
{ in delphi int64 can not be converted to real }
if not((m_tp in aktmodeswitches) and
(torddef(def_from).typ in [u64bit,s64bit])) then
begin
doconv:=tc_int_2_real;
b:=1;
end;
doconv:=tc_int_2_real;
b:=1;
end;
end;
floatdef :
@ -1784,7 +1779,11 @@ implementation
end.
{
$Log$
Revision 1.47 2001-09-03 13:27:41 jonas
Revision 1.48 2001-10-16 17:15:44 jonas
* auto-converting from int64 to real is again allowed for all modes
(it's allowed in Delphi too)
Revision 1.47 2001/09/03 13:27:41 jonas
* compilerproc implementation of set addition/substraction/...
* changed the declaration of some set helpers somewhat to accomodate the
above change