* mark implicitly created typesyms immediately as "referenced" to avoid hints

about them not being used

git-svn-id: branches/jvmbackend@18664 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:22:33 +00:00
parent 1b1face692
commit 102e9cf8f4

View File

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