mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 20:59:42 +02:00
* 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:
parent
1b1face692
commit
102e9cf8f4
@ -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;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user