Browse Source

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

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

Jonas Maebe 14 years ago
parent
commit
102e9cf8f4
1 changed files with 3 additions and 0 deletions
  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;