mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 19:49:12 +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);
|
ts:=ttypesym.create(trecorddef(def).symtable.realname^,def);
|
||||||
st.insert(ts);
|
st.insert(ts);
|
||||||
ts.visibility:=vis_strictprivate;
|
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;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user