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

* allow real_2_real conversion for realconstn, fixes 2971

Browse Source
This commit is contained in:
peter 2004-02-15 12:18:22 +00:00
parent cf34a799aa
commit da60da7f06
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/defcmp.pas
View File

@ -399,8 +399,9 @@ implementation
eq:=te_equal eq:=te_equal
else else
begin begin
if not(cdo_explicit in cdoptions) or if (fromtreetype=realconstn) or
not(m_delphi in aktmodeswitches) then not((cdo_explicit in cdoptions) and
(m_delphi in aktmodeswitches)) then
begin begin
doconv:=tc_real_2_real; doconv:=tc_real_2_real;
{ do we loose precision? } { do we loose precision? }
@ -1266,7 +1267,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.45 2004-02-13 15:42:21 peter Revision 1.46 2004-02-15 12:18:22 peter
* allow real_2_real conversion for realconstn, fixes 2971
Revision 1.45 2004/02/13 15:42:21 peter
* compare_defs_ext has now a options argument * compare_defs_ext has now a options argument
* fixes for variants * fixes for variants