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

Protected the verbose of the resolver.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2023-07-25 15:54:27 -03:00 committed by Michael Van Canneyt
parent fef4ae489a
commit c75aa72b8f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-passrc/src/pasresolver.pp
View File

@ -22541,7 +22541,7 @@ function TPasResolver.CreateReference(DeclEl, RefEl: TPasElement;
var var
FormerDeclEl: TPasElement; FormerDeclEl: TPasElement;
begin begin
{AllowWriteln} {$IFDEF VerbosePasResolver}
writeln('RaiseAlreadySet RefEl=',GetObjName(RefEl),' DeclEl=',GetObjName(DeclEl)); writeln('RaiseAlreadySet RefEl=',GetObjName(RefEl),' DeclEl=',GetObjName(DeclEl));
writeln(' RefEl at ',GetElementSourcePosStr(RefEl)); writeln(' RefEl at ',GetElementSourcePosStr(RefEl));
writeln(' RefEl.CustomData=',GetObjName(RefEl.CustomData)); writeln(' RefEl.CustomData=',GetObjName(RefEl.CustomData));
@ -22551,8 +22551,8 @@ function TPasResolver.CreateReference(DeclEl, RefEl: TPasElement;
writeln(' TResolvedReference(RefEl.CustomData).Declaration=',GetObjName(FormerDeclEl), writeln(' TResolvedReference(RefEl.CustomData).Declaration=',GetObjName(FormerDeclEl),
' IsSame=',FormerDeclEl=DeclEl); ' IsSame=',FormerDeclEl=DeclEl);
end; end;
{AllowWriteln-} {$ENDIF}
RaiseInternalError(20160922163554,'customdata<>nil'); RaiseInternalError(20160922163554, 'customdata=' + GetObjName(DeclEl));
end; end;
begin begin