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

* call c_exit directly in case PASCALMAIN finishes, to avoid inline asm entirely

Browse Source 
in the _FPC_proc___start routine in the libc version of the OpenBSD startup
  code for x86_64

git-svn-id: trunk@41745 -
This commit is contained in:
nickysn 2019-03-19 18:28:20 +00:00
parent 4715ad605b
commit 2960399f9a
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -78,14 +78,11 @@ procedure _FPC_proc___start(argc: LongInt; argv: PPChar; envp: Pointer; para1, p
monstartup(u_long(@_eprol),u_long(@_etext));} monstartup(u_long(@_eprol),u_long(@_etext));}
__init; __init;
PascalMain; PascalMain;
asm c_exit(operatingsystem_result);
jmp _FPC_proc_haltproc
end;
end; end;
procedure _FPC_proc_haltproc; noreturn; public name '_haltproc'; procedure _FPC_proc_haltproc; noreturn; public name '_haltproc';
begin begin
c_exit(operatingsystem_result);
end; end;
function _strrchr(str: PChar; character: LongInt): PChar; public name '_strrchr'; function _strrchr(str: PChar; character: LongInt): PChar; public name '_strrchr';