Explorar o código

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

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

Jonas Maebe %!s(int64=14) %!d(string=hai) anos
pai
achega
102e9cf8f4
Modificáronse 1 ficheiros con 3 adicións e 0 borrados
  1. 3 0
      compiler/symcreat.pas

+ 3 - 0
compiler/symcreat.pas

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