Browse Source

* RiscV: write also nopic directive

florian 7 months ago
parent
commit
e30ca27914
1 changed files with 7 additions and 2 deletions
  1. 7 2
      compiler/riscv/nrvutil.pas

+ 7 - 2
compiler/riscv/nrvutil.pas

@@ -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;