paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 14:27:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* RiscV: write also nopic directive

Browse Source
This commit is contained in:
florian 2024-12-29 18:38:15 +01:00
parent de8d54cfef
commit e30ca27914
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/riscv/nrvutil.pas
View File

@ -44,8 +44,13 @@ implementation
class procedure trvnodeutils.InsertObjectInfo;
begin
inherited InsertObjectInfo;
if (target_info.system in systems_linux) and (cs_create_pic in current_settings.moduleswitches) then
current_asmdata.asmlists[al_start].Concat(tai_directive.create(asd_option,'pic'));
if (target_info.system in systems_linux) then
begin
if (cs_create_pic in current_settings.moduleswitches) then
current_asmdata.asmlists[al_start].Concat(tai_directive.create(asd_option,'pic'))
else
current_asmdata.asmlists[al_start].Concat(tai_directive.create(asd_option,'nopic'));
end;
end;