Browse Source

* Simplified, removed redundant asmlist and duplicate call to maybe_new_object_file.

git-svn-id: trunk@29509 -
sergei 10 years ago
parent
commit
a67478e033
1 changed files with 1 additions and 4 deletions
  1. 1 4
      compiler/ngenutil.pas

+ 1 - 4
compiler/ngenutil.pas

@@ -913,7 +913,7 @@ implementation
     begin
     begin
       if (target_res.id in [res_elf,res_macho,res_xcoff]) then
       if (target_res.id in [res_elf,res_macho,res_xcoff]) then
         begin
         begin
-        ResourceInfo:=TAsmList.Create;
+        ResourceInfo:=current_asmdata.asmlists[al_globals];
 
 
         maybe_new_object_file(ResourceInfo);
         maybe_new_object_file(ResourceInfo);
         new_section(ResourceInfo,sec_data,'FPC_RESLOCATION',sizeof(aint));
         new_section(ResourceInfo,sec_data,'FPC_RESLOCATION',sizeof(aint));
@@ -928,9 +928,6 @@ implementation
           {$ELSE}
           {$ELSE}
           ResourceInfo.Concat(Tai_const.Create_64bit(0));
           ResourceInfo.Concat(Tai_const.Create_64bit(0));
           {$ENDIF}
           {$ENDIF}
-        maybe_new_object_file(current_asmdata.asmlists[al_globals]);
-        current_asmdata.asmlists[al_globals].concatlist(ResourceInfo);
-        ResourceInfo.free;
         end;
         end;
     end;
     end;