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

* give penalty in float-float conversion when precision is lost

Browse Source
This commit is contained in:
peter 2004-01-14 21:44:16 +00:00
parent bb03be5004
commit c3b9e56e90
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/defcmp.pas
View File

@ -410,10 +410,14 @@ implementation
else else
begin begin
if not(explicit) or if not(explicit) or
not(m_delphi in aktmodeswitches) then not(m_delphi in aktmodeswitches) then
begin begin
doconv:=tc_real_2_real; doconv:=tc_real_2_real;
eq:=te_convert_l1; { do we loose precision? }
if def_to.size<def_from.size then
eq:=te_convert_l2
else
eq:=te_convert_l1;
end; end;
end; end;
end; end;
@ -1258,7 +1262,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.41 2004-01-06 02:17:44 florian Revision 1.42 2004-01-14 21:44:16 peter
* give penalty in float-float conversion when precision is lost
Revision 1.41 2004/01/06 02:17:44 florian
* fixed webbug 2878 * fixed webbug 2878
Revision 1.40 2004/01/02 17:19:04 jonas Revision 1.40 2004/01/02 17:19:04 jonas