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

* disabled hints/warnings about changed symbol visibility by default, use

Browse Source 
-dextdebug to see them. This fixes 4 tests.

git-svn-id: trunk@29487 -
This commit is contained in:
Jonas Maebe 2015-01-16 20:08:48 +00:00
parent 0d1d3d8e72
commit 697552b9f1
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/aasmdata.pas
View File

@ -411,10 +411,15 @@ implementation
GOT might have been used, so change might be harmful. }
if (_bind<>hp.bind) and (hp.getrefs>0) then
begin
{$ifdef extdebug}
{ the changes that matter must become internalerrors, the rest
should be ignored; a used cannot change anything about this,
so printing a warning/hint is not useful }
if (_bind=AB_LOCAL) then
Message3(asmw_w_changing_bind_type,s,asmsymbindname[hp.bind],asmsymbindname[_bind])
else
Message3(asmw_h_changing_bind_type,s,asmsymbindname[hp.bind],asmsymbindname[_bind]);
{$endif extdebug}
end;
hp.bind:=_bind;
end