fcl-passrc: useanalzyer: fixed marking empty program

git-svn-id: trunk@38506 -

packages/fcl-passrc/src/pasuseanalyzer.pas

@@ -2113,6 +2113,7 @@ begin
     RaiseInconsistency(20170315153252,'');
   ScopeModule:=nil;
   UseModule(aStartModule,paumAllExports);
+  MarkElementAsUsed(aStartModule); // always mark the start
   {$IFDEF VerbosePasAnalyzer}
   writeln('TPasAnalyzer.AnalyzeWholeProgram END ',GetElModName(aStartModule));
   {$ENDIF}