+ Also take resources in main program source into account

git-svn-id: trunk@990 -

compiler/pmodules.pas

@@ -283,11 +283,13 @@ implementation
         begin
         hp:=tused_unit(usedunits.first);
         found:=false;
-        While Assigned(hp) and not Found do
+        Found:=((current_module.flags and uf_has_resourcefiles)=uf_has_resourcefiles);
-          begin
+        If not found then
-          Found:=((hp.u.flags and uf_has_resourcefiles)=uf_has_resourcefiles);
+          While Assigned(hp) and not Found do
-          hp:=tused_unit(hp.next);
+            begin
-          end;
+            Found:=((hp.u.flags and uf_has_resourcefiles)=uf_has_resourcefiles);
+            hp:=tused_unit(hp.next);
+            end;
         ResourceInfo:=TAAsmOutput.Create;
         if found then
           begin

compiler/systems/t_linux.pas

@@ -660,12 +660,15 @@ begin
   postprocessexecutable:=True;
   if target_res.id=res_elf then
     begin
-    hp:=tused_unit(usedunits.first);
+    found:=((current_module.flags and uf_has_resourcefiles)=uf_has_resourcefiles);
-    found:=false;
+    if not found then
-    While Assigned(hp) and not Found do
       begin
-      Found:=((hp.u.flags and uf_has_resourcefiles)=uf_has_resourcefiles);
+      hp:=tused_unit(usedunits.first);
-      hp:=tused_unit(hp.next);
+      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