Преглед изворни кода

* mark implicitly created typesyms immediately as "referenced" to avoid hints
about them not being used

git-svn-id: branches/jvmbackend@18664 -

Jonas Maebe пре 14 година
родитељ
комит
102e9cf8f4
1 измењених фајлова са 3 додато и 0 уклоњено
  1. 3 0
      compiler/symcreat.pas

+ 3 - 0
compiler/symcreat.pas

@@ -898,6 +898,9 @@ implementation
           ts:=ttypesym.create(trecorddef(def).symtable.realname^,def);
           st.insert(ts);
           ts.visibility:=vis_strictprivate;
+          { this typesym can't be used by any Pascal code, so make sure we don't
+            print a hint about it being unused }
+          addsymref(ts);
         end;
     end;