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
   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
   section, this won't be at the start of the executable, and we get
   crashes. (KB) }
   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
 var
   sst: TStackSwapStruct;
   sst: TStackSwapStruct;
   newStack: Pointer;
   newStack: Pointer;