浏览代码

Add _csu_abort function

Pierre Muller 1 年之前
父节点
当前提交
eff8f956a1
共有 2 个文件被更改,包括 16 次插入0 次删除
  1. 7 0
      rtl/openbsd/i386/si_c.inc
  2. 9 0
      rtl/openbsd/x86_64/si_c.inc

+ 7 - 0
rtl/openbsd/i386/si_c.inc

@@ -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 - 0
rtl/openbsd/x86_64/si_c.inc

@@ -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;