+ Also take resources in main program source into account

git-svn-id: trunk@990 -

compiler/pmodules.pas

@@ -283,6 +283,8 @@ implementation
         begin
         hp:=tused_unit(usedunits.first);
         found:=false;
+        Found:=((current_module.flags and uf_has_resourcefiles)=uf_has_resourcefiles);
+        If not found then
           While Assigned(hp) and not Found do
             begin
             Found:=((hp.u.flags and uf_has_resourcefiles)=uf_has_resourcefiles);

compiler/systems/t_linux.pas

@@ -659,14 +659,17 @@ Var
 begin
   postprocessexecutable:=True;
   if target_res.id=res_elf then
+    begin
+    found:=((current_module.flags and uf_has_resourcefiles)=uf_has_resourcefiles);
+    if not found then
       begin
       hp:=tused_unit(usedunits.first);
-    found:=false;
       While Assigned(hp) and not Found do
         begin
         Found:=((hp.u.flags and uf_has_resourcefiles)=uf_has_resourcefiles);
         hp:=tused_unit(hp.next);
         end;
+      end;  
     if found then
       begin  
       cmdstr:=' -f -i '+maybequoted(fn);