paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 03:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@29509 -
This commit is contained in:
sergei 2015-01-20 07:52:11 +00:00
parent fdbd928453
commit a67478e033
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ngenutil.pas
View File

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