mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 09:26:15 +02:00
* Simplified, removed redundant asmlist and duplicate call to maybe_new_object_file.
git-svn-id: trunk@29509 -
This commit is contained in:
parent
fdbd928453
commit
a67478e033
@ -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;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user