Преглед изворни кода

* RiscV: write also nopic directive

florian пре 8 месеци
родитељ
комит
e30ca27914
1 измењених фајлова са 7 додато и 2 уклоњено
  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;