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

Attempt to use local _init and _fini procedures

Browse Source
This commit is contained in:
Pierre Muller 2023-04-21 20:29:24 +00:00
parent a304962ea0
commit 0efa4cbc67
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/linux/xtensa/si_uc.inc
View File

@ -22,11 +22,22 @@ var
BSS_START: record end; external name '__bss_start'; BSS_START: record end; external name '__bss_start';
STACK_PTR: record end; external name '__stkptr'; STACK_PTR: record end; external name '__stkptr';
uclibc_init : TProcedure; external name '_init'; //uclibc_init : TProcedure; external name '_init';
uclibc_fini : TProcedure; external name '_fini'; //uclibc_fini : TProcedure; external name '_fini';
procedure uclibc_exit(e : longint); weakexternal name 'exit'; procedure uclibc_exit(e : longint); weakexternal name 'exit';
procedure uclibc_main(main : TProcedure; argc : longint; argv : ppchar; init : TProcedure; fini : TProcedure; sp : pointer); external name '__uClibc_main'; procedure uclibc_main(main : TProcedure; argc : longint; argv : ppchar; init : TProcedure; fini : TProcedure; sp : pointer); external name '__uClibc_main';
procedure uclibc_init; public name '_init'; assembler; nostackframe;
asm
entry a1, 48
end;
procedure uclibc_fini; public name '_fini'; assembler; nostackframe;
asm
entry a1, 48
end;
procedure _FPC_xtensa_enter(at_exit: TProcedure; sp: pptruint); procedure _FPC_xtensa_enter(at_exit: TProcedure; sp: pptruint);
var var
argc: ptruint; argc: ptruint;