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

* more debug statments removed

Browse Source
This commit is contained in:
florian 2024-04-25 22:50:38 +02:00
parent ab66440e76
commit fc6d6c123d
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncal.pas
View File

@ -3897,7 +3897,6 @@ implementation
converted_result_data : ttempcreatenode;
calltype: tdispcalltype;
invokesym : tsym;
myparasym: tparavarsym;
begin
result:=nil;
candidates:=nil;
@ -4187,7 +4186,6 @@ implementation
end;
while (paraidx<procdefinition.paras.count) and (vo_is_hidden_para in tparavarsym(procdefinition.paras[paraidx]).varoptions) do
inc(paraidx);
myparasym:=tparavarsym(procdefinition.paras[paraidx]);
while (paraidx<procdefinition.paras.count) do
begin
if not assigned(tparavarsym(procdefinition.paras[paraidx]).defaultconstsym) then