浏览代码

* 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;