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

* invoke _csu_finish before __init the OpenBSD x86_64 C library startup code

Browse Source 
git-svn-id: trunk@42076 -
This commit is contained in:
nickysn 2019-05-15 15:22:54 +00:00
parent 77f86d22a5
commit 058336db40
2 changed files with 10 additions and 4 deletions
rtl/openbsd/x86_64
si_c.incsi_g.inc

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

@ -18,6 +18,7 @@
procedure __init; cdecl; external name '__init';
procedure c_exit(exit_code: cint); cdecl; noreturn; external name 'exit';
function _csu_finish(_argv: PPChar; _envp: PPChar; _cleanup: TCdeclProcedure): PPPChar; cdecl; external name '_csu_finish';
procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; cleanup: TCdeclProcedure); cdecl; forward;
@ -38,9 +39,11 @@ function _strrchr(str: PChar; character: LongInt): PChar; forward;
procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; cleanup: TCdeclProcedure); cdecl;
var
I: SizeUInt;
environp: PPPChar;
begin
environ:=envp;
operatingsystem_parameter_envp:=envp;
environp:=_csu_finish(argv, envp, cleanup);
environ:=environp^;
operatingsystem_parameter_envp:=environ;
operatingsystem_parameter_argc:=argc;
operatingsystem_parameter_argv:=argv;
if argv[0]<>nil then

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

@ -25,6 +25,7 @@ function atexit(proc: TCdeclProcedure): cint; cdecl; external name 'atexit';
procedure _monstartup(lowpc, highpc: u_long); cdecl; external name '_monstartup';
procedure __init; cdecl; external name '__init';
procedure c_exit(exit_code: cint); cdecl; noreturn; external name 'exit';
function _csu_finish(_argv: PPChar; _envp: PPChar; _cleanup: TCdeclProcedure): PPPChar; cdecl; external name '_csu_finish';
procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; cleanup: TCdeclProcedure); cdecl; forward;
@ -45,9 +46,11 @@ function _strrchr(str: PChar; character: LongInt): PChar; forward;
procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; cleanup: TCdeclProcedure); cdecl;
var
I: SizeUInt;
environp: PPPChar;
begin
environ:=envp;
operatingsystem_parameter_envp:=envp;
environp:=_csu_finish(argv, envp, cleanup);
environ:=environp^;
operatingsystem_parameter_envp:=environ;
operatingsystem_parameter_argc:=argc;
operatingsystem_parameter_argv:=argv;
if argv[0]<>nil then