瀏覽代碼

sinclairql: make sure the Sinclair QL defaults to vlink

git-svn-id: trunk@47520 -
Károly Balogh 4 年之前
父節點
當前提交
ebb199b9d4
共有 1 個文件被更改,包括 5 次插入0 次删除
  1. 5 0
      compiler/options.pas

+ 5 - 0
compiler/options.pas

@@ -3417,6 +3417,11 @@ begin
       not LinkerSetExplicitly then
      include(init_settings.globalswitches,cs_link_vlink);
 {$endif}
+{$ifdef m68k}
+   if (target_info.system in [system_m68k_sinclairql]) and
+      not LinkerSetExplicitly then
+     include(init_settings.globalswitches,cs_link_vlink);
+{$endif m68k}
 end;
 
 procedure TOption.checkoptionscompatibility;