summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorkaroly <karoly@3ad0048d-3df7-0310-abae-a5850022a9f2>2021-04-29 22:23:58 +0000
committerkaroly <karoly@3ad0048d-3df7-0310-abae-a5850022a9f2>2021-04-29 22:23:58 +0000
commitf793225f46c0771d3dd851510e0cb93b10415b32 (patch)
treee98f37f5fe6e53c0efa2f5c2fc05bc0a631af53e
parent7301ef77885e2f43b509ea48ad0265dd44865d6b (diff)
downloadfpc-f793225f46c0771d3dd851510e0cb93b10415b32.tar.gz
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
-rw-r--r--compiler/globals.pas2
-rw-r--r--compiler/options.pas2
-rw-r--r--rtl/sinclairql/si_prc.pp2
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 }