mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 12:49:33 +02:00
* fixed dynamic startup of programs that don't link against libc (they get
argc/argv/envp in r3/r4/r5) git-svn-id: trunk@32525 -
This commit is contained in:
parent
71e27e85c9
commit
816c66107e
@ -696,7 +696,8 @@ procedure _start; cdecl; public; assembler; nostackframe;
|
||||
procedure _dynamic_start(r3,r4,r5,r6: pointer; r7: tdlfiniproc); cdecl; public;
|
||||
begin
|
||||
dlexitproc:=r7;
|
||||
_start;
|
||||
save_argc_argv_envp_stkptr(ptrint(r3),ppchar(r4),r5);
|
||||
PASCALMAIN;
|
||||
end;
|
||||
|
||||
label
|
||||
|
Loading…
Reference in New Issue
Block a user