Pārlūkot izejas kodu

* RiscV: write also nopic directive

florian 8 mēneši atpakaļ
vecāks
revīzija
e30ca27914
1 mainītis faili ar 7 papildinājumiem un 2 dzēšanām
  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;