pastojs: less hints

git-svn-id: trunk@43332 -

packages/pastojs/src/pas2jshtmlresources.pp

@@ -97,6 +97,7 @@ end;
 procedure THTMLResourceLinkHandler.DoneUnit(IsMainFile : Boolean);
 begin
   // Do no call inherited, it will clear the list
+  if IsMainFile then ;
 end;
 
 

packages/pastojs/src/pas2jsresources.pp

@@ -72,6 +72,8 @@ uses base64;
 procedure TNoResources.HandleResource(aFileName: string; Options: TStrings);
 begin
   // Do nothing
+  if aFileName='' then ;
+  if Options=nil then ;
 end;
 
 
@@ -169,6 +171,7 @@ end;
 function TPas2jsResourceHandler.WriteJS(const aUnitName: String; aModule: TJSElement): TJSElement;
 begin
   Result:=aModule;
+  if aUnitName='' then ;
 end;