Browse Source

- don't export the ___start symbol in the OpenBSD startup code

git-svn-id: trunk@41744 -
nickysn 6 years ago
parent
commit
4715ad605b
3 changed files with 3 additions and 3 deletions
  1. 1 1
      rtl/openbsd/x86_64/si_c.inc
  2. 1 1
      rtl/openbsd/x86_64/si_dll.inc
  3. 1 1
      rtl/openbsd/x86_64/si_prc.inc

+ 1 - 1
rtl/openbsd/x86_64/si_c.inc

@@ -50,7 +50,7 @@ procedure _FPC_proc_start; assembler; nostackframe; public name '_start'; public
 procedure _FPC_proc_haltproc; noreturn; forward;
 procedure _FPC_proc_haltproc; noreturn; forward;
 function _strrchr(str: PChar; character: LongInt): PChar; forward;
 function _strrchr(str: PChar; character: LongInt): PChar; forward;
 
 
-procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; para1, para2, para3: QWord); public name '___start';
+procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; para1, para2, para3: QWord);
   var
   var
     I: SizeUInt;
     I: SizeUInt;
   begin
   begin

+ 1 - 1
rtl/openbsd/x86_64/si_dll.inc

@@ -37,7 +37,7 @@ procedure _FPC_proc_start; assembler; nostackframe; public name '_start'; public
 procedure _FPC_proc_haltproc; forward;
 procedure _FPC_proc_haltproc; forward;
 function _strrchr(str: PChar; character: LongInt): PChar; forward;
 function _strrchr(str: PChar; character: LongInt): PChar; forward;
 
 
-procedure _FPC_proc___start; assembler; nostackframe; public name '___start';
+procedure _FPC_proc___start; assembler; nostackframe;
   asm
   asm
     pushq   %rbp
     pushq   %rbp
     movq    %rsp, %rbp
     movq    %rsp, %rbp

+ 1 - 1
rtl/openbsd/x86_64/si_prc.inc

@@ -35,7 +35,7 @@ procedure _FPC_proc_start; assembler; nostackframe; public name '_start'; public
 procedure _FPC_proc_haltproc; forward;
 procedure _FPC_proc_haltproc; forward;
 function _strrchr(str: PChar; character: LongInt): PChar; forward;
 function _strrchr(str: PChar; character: LongInt): PChar; forward;
 
 
-procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; para1, para2, para3: QWord); public name '___start';
+procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; para1, para2, para3: QWord);
   var
   var
     I: SizeUInt;
     I: SizeUInt;
   begin
   begin