paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 14:10:22 +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

11
compiler/types.pas
View File

@ -1390,16 +1390,11 @@ implementation
orddef : orddef :
begin { ordinal to real } begin { ordinal to real }
if is_integer(def_from) then 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 begin
doconv:=tc_int_2_real; doconv:=tc_int_2_real;
b:=1; b:=1;
end; end;
end; end;
end;
floatdef : floatdef :
begin { 2 float types ? } begin { 2 float types ? }
if tfloatdef(def_from).typ=tfloatdef(def_to).typ then if tfloatdef(def_from).typ=tfloatdef(def_to).typ then
@ -1784,7 +1779,11 @@ implementation
end. end.
{ {
$Log$ $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/... * compilerproc implementation of set addition/substraction/...
* changed the declaration of some set helpers somewhat to accomodate the * changed the declaration of some set helpers somewhat to accomodate the
above change above change