paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 23:49:29 +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
FormerDeclEl: TPasElement;
begin
{AllowWriteln}
{$IFDEF VerbosePasResolver}
writeln('RaiseAlreadySet RefEl=',GetObjName(RefEl),' DeclEl=',GetObjName(DeclEl));
writeln(' RefEl at ',GetElementSourcePosStr(RefEl));
writeln(' RefEl.CustomData=',GetObjName(RefEl.CustomData));
@ -22551,8 +22551,8 @@ function TPasResolver.CreateReference(DeclEl, RefEl: TPasElement;
writeln(' TResolvedReference(RefEl.CustomData).Declaration=',GetObjName(FormerDeclEl),
' IsSame=',FormerDeclEl=DeclEl);
end;
{AllowWriteln-}
RaiseInternalError(20160922163554,'customdata<>nil');
{$ENDIF}
RaiseInternalError(20160922163554, 'customdata=' + GetObjName(DeclEl));
end;
begin