From f793225f46c0771d3dd851510e0cb93b10415b32 Mon Sep 17 00:00:00 2001
From: karoly <karoly@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Thu, 29 Apr 2021 22:23:58 +0000
Subject: m68k: sinclair ql now requires vlink 0.16h or newer.

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49296 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 compiler/globals.pas     | 2 +-
 compiler/options.pas     | 2 +-
 rtl/sinclairql/si_prc.pp | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/globals.pas b/compiler/globals.pas
index ab570352a6..a7c8ad9992 100644
--- a/compiler/globals.pas
+++ b/compiler/globals.pas
@@ -416,7 +416,7 @@ interface
 {$if defined(m68k)}
        { Sinclair QL specific }
        sinclairql_metadata_format: string[4] = 'QHDR';
-       sinclairql_vlink_experimental: boolean = false; { temporary }
+       sinclairql_vlink_experimental: boolean = true; { temporary }
 {$endif defined(m68k)}
 
        { default name of the C-style "main" procedure of the library/program }
diff --git a/compiler/options.pas b/compiler/options.pas
index 990e92dda8..b38feb9d99 100644
--- a/compiler/options.pas
+++ b/compiler/options.pas
@@ -2764,7 +2764,7 @@ begin
                     'L':
                       begin
                         if (target_info.system in [system_m68k_sinclairql]) then
-                          sinclairql_vlink_experimental:=true
+                          sinclairql_vlink_experimental:=false
                         else
                           IllegalPara(opt);
                       end;
diff --git a/rtl/sinclairql/si_prc.pp b/rtl/sinclairql/si_prc.pp
index 95993c65fe..77c4691c68 100644
--- a/rtl/sinclairql/si_prc.pp
+++ b/rtl/sinclairql/si_prc.pp
@@ -79,7 +79,7 @@ asm
     move.l (a1)+,d7
     beq @noreloc
 
-{.$DEFINE PACKEDRELOCS}
+{$DEFINE PACKEDRELOCS}
 {$IFNDEF PACKEDRELOCS}
 @relocloop:
     { we read the offsets and relocate them }
-- 
cgit v1.2.1