Browse Source

rtl/morphos: do not try to use the section keyword on 3.2.x that doesn't support it. this allows bootstrapping natively with 3.2.x again.

Karoly Balogh 1 month ago
parent
commit
dd6d142f4c
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/morphos/si_prc.pp

+ 1 - 1
rtl/morphos/si_prc.pp

@@ -41,7 +41,7 @@ procedure PascalMainEntry; cdecl; forward;
   all .text.* section, so if we link any object with an unnamed .text
   section, this won't be at the start of the executable, and we get
   crashes. (KB) }
-function _FPC_proc_start: longint; cdecl; public name '_start'; section '.text';
+function _FPC_proc_start: longint; cdecl; public name '_start'; {$IFNDEF VER3_2}section '.text';{$ENDIF}
 var
   sst: TStackSwapStruct;
   newStack: Pointer;