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

Add _csu_abort function

Browse Source
This commit is contained in:
Pierre Muller 2024-04-25 15:18:06 +02:00
parent d18812b32f
commit eff8f956a1
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -39,6 +39,13 @@ procedure _FPC_proc_start; assembler; nostackframe; public name '_start'; public
function _strrchr(str: PAnsiChar; character: LongInt): PAnsiChar; forward;
procedure _csu_abort; cdecl; external name '_csu_abort';
begin
asm
int3
end;
end;
procedure _FPC_proc___start(argc: LongInt; argv: PPAnsiChar; envp: Pointer; cleanup: TCdeclProcedure); cdecl;
var
I: SizeUInt;

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

@ -36,6 +36,15 @@ procedure _FPC_proc_start; assembler; nostackframe; public name '_start'; public
function _strrchr(str: PAnsiChar; character: LongInt): PAnsiChar; forward;
procedure _csu_abort; cdecl; public name '_csu_abort';
begin
asm
// endbr64
// Not yet supported by our inline assembler reader
int3
end;
end;
procedure _FPC_proc___start(argc: LongInt; argv: PPAnsiChar; envp: Pointer; cleanup: TCdeclProcedure); cdecl;
var
I: SizeUInt;