paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* updated the parameter list to _FPC_proc___start in the OpenBSD x86_64 startup code

Browse Source 
git-svn-id: trunk@42075 -
This commit is contained in:
nickysn 2019-05-15 14:27:42 +00:00
parent f2719e438c
commit 77f86d22a5
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/openbsd/x86_64/si_c.inc
View File

@ -19,7 +19,7 @@
procedure __init; cdecl; external name '__init'; procedure __init; cdecl; external name '__init';
procedure c_exit(exit_code: cint); cdecl; noreturn; external name 'exit'; procedure c_exit(exit_code: cint); cdecl; noreturn; external name 'exit';
procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; para1, para2, para3: QWord); cdecl; forward; procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; cleanup: TCdeclProcedure); cdecl; forward;
procedure _FPC_proc_start; assembler; nostackframe; public name '_start'; public name '__start'; procedure _FPC_proc_start; assembler; nostackframe; public name '_start'; public name '__start';
asm asm
@ -35,7 +35,7 @@ procedure _FPC_proc_start; assembler; nostackframe; public name '_start'; public
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); cdecl; procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; cleanup: TCdeclProcedure); cdecl;
var var
I: SizeUInt; I: SizeUInt;
begin begin

4
rtl/openbsd/x86_64/si_g.inc
View File

@ -26,7 +26,7 @@ procedure _monstartup(lowpc, highpc: u_long); cdecl; external name '_monstartup'
procedure __init; cdecl; external name '__init'; procedure __init; cdecl; external name '__init';
procedure c_exit(exit_code: cint); cdecl; noreturn; external name 'exit'; procedure c_exit(exit_code: cint); cdecl; noreturn; external name 'exit';
procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; para1, para2, para3: QWord); cdecl; forward; procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; cleanup: TCdeclProcedure); cdecl; forward;
procedure _FPC_proc_start; assembler; nostackframe; public name '_start'; public name '__start'; procedure _FPC_proc_start; assembler; nostackframe; public name '_start'; public name '__start';
asm asm
@ -42,7 +42,7 @@ procedure _FPC_proc_start; assembler; nostackframe; public name '_start'; public
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); cdecl; procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; cleanup: TCdeclProcedure); cdecl;
var var
I: SizeUInt; I: SizeUInt;
begin begin

4
rtl/openbsd/x86_64/si_prc.inc
View File

@ -16,7 +16,7 @@
{$asmmode gas} {$asmmode gas}
procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; para1, para2, para3: QWord); forward; procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; cleanup: TCdeclProcedure); forward;
procedure _FPC_proc_start; assembler; nostackframe; public name '_start'; public name '__start'; procedure _FPC_proc_start; assembler; nostackframe; public name '_start'; public name '__start';
asm asm
@ -33,7 +33,7 @@ procedure _FPC_proc_start; assembler; nostackframe; public name '_start'; public
procedure _FPC_proc_haltproc; cdecl; forward; procedure _FPC_proc_haltproc; cdecl; 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); procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; cleanup: TCdeclProcedure);
var var
I: SizeUInt; I: SizeUInt;
begin begin