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

* don't have strict var parameter checking for procedures in the

Browse Source 
system unit
This commit is contained in:
peter 2002-09-15 17:49:59 +00:00
parent bab50ac255
commit 6d0e34fa5e
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncal.pas
View File

@ -1705,8 +1705,10 @@ implementation
begin
hp^.nextPara.argconvtyp:=act_convertable;
{ var and out parameters are not be convertable
in Delphi/tp mode }
in Delphi/tp mode. The only exception is when the
procedure is defined in the system unit }
if (hp^.nextPara.paratyp in [vs_var,vs_out]) and
(procs^.data.owner.unitid<>1) and
((m_delphi in aktmodeswitches) or
(m_tp7 in aktmodeswitches)) then
hp^.nextPara.convertlevel:=0
@ -2602,7 +2604,11 @@ begin
end.
{
$Log$
Revision 1.99 2002-09-09 19:30:34 peter
Revision 1.100 2002-09-15 17:49:59 peter
* don't have strict var parameter checking for procedures in the
system unit
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