Преглед на файлове

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;