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

* don't allow convertable parameters for var and out parameters in

Browse Source 
delphi and tp mode
This commit is contained in:
peter 2002-09-09 19:30:34 +00:00
parent dd143617e6
commit ab536bffc2
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/ncal.pas
View File

@ -1704,8 +1704,15 @@ implementation
else
begin
hp^.nextPara.argconvtyp:=act_convertable;
hp^.nextPara.convertlevel:=isconvertable(pt.resulttype.def,hp^.nextPara.paratype.def,
hcvt,pt.left.nodetype,false);
{ var and out parameters are not be convertable
in Delphi/tp mode }
if (hp^.nextPara.paratyp in [vs_var,vs_out]) and
((m_delphi in aktmodeswitches) or
(m_tp7 in aktmodeswitches)) then
hp^.nextPara.convertlevel:=0
else
hp^.nextPara.convertlevel:=isconvertable(pt.resulttype.def,hp^.nextPara.paratype.def,
hcvt,pt.left.nodetype,false);
case hp^.nextPara.convertlevel of
1 : include(pt.callparaflags,cpf_convlevel1found);
2 : include(pt.callparaflags,cpf_convlevel2found);
@ -2595,7 +2602,11 @@ begin
end.
{
$Log$
Revision 1.98 2002-09-07 15:25:02 peter
Revision 1.99 2002-09-09 19:30:34 peter
* don't allow convertable parameters for var and out parameters in
delphi and tp mode
Revision 1.98 2002/09/07 15:25:02 peter
* old logs removed and tabs fixed
Revision 1.97 2002/09/07 12:16:05 carl