diff options
| -rw-r--r-- | compiler/globals.pas | 2 | ||||
| -rw-r--r-- | compiler/options.pas | 2 | ||||
| -rw-r--r-- | 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 } |