소스 검색

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