瀏覽代碼

* disabled hints/warnings about changed symbol visibility by default, use
-dextdebug to see them. This fixes 4 tests.

git-svn-id: trunk@29487 -

Jonas Maebe 10 年之前
父節點
當前提交
697552b9f1
共有 1 個文件被更改,包括 5 次插入0 次删除
  1. 5 0
      compiler/aasmdata.pas

+ 5 - 0
compiler/aasmdata.pas

@@ -411,10 +411,15 @@ implementation
              GOT might have been used, so change might be harmful. }
              GOT might have been used, so change might be harmful. }
            if (_bind<>hp.bind) and (hp.getrefs>0) then
            if (_bind<>hp.bind) and (hp.getrefs>0) then
              begin
              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
                if (_bind=AB_LOCAL) then
                  Message3(asmw_w_changing_bind_type,s,asmsymbindname[hp.bind],asmsymbindname[_bind])
                  Message3(asmw_w_changing_bind_type,s,asmsymbindname[hp.bind],asmsymbindname[_bind])
                else
                else
                  Message3(asmw_h_changing_bind_type,s,asmsymbindname[hp.bind],asmsymbindname[_bind]);
                  Message3(asmw_h_changing_bind_type,s,asmsymbindname[hp.bind],asmsymbindname[_bind]);
+{$endif extdebug}
              end;
              end;
            hp.bind:=_bind;
            hp.bind:=_bind;
          end
          end