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

* remove inline assembler for calling asm_exit

Browse Source
This commit is contained in:
florian 2004-12-12 11:53:47 +00:00
parent 0037f4a199
commit 6b086f5c79
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/win32/system.pp
View File

@ -899,12 +899,12 @@ end;
System Dependent Exit code
*****************************************************************************}
procedure install_exception_handlers;forward;
procedure remove_exception_handlers;forward;
procedure PascalMain;stdcall;external name 'PASCALMAIN';
procedure fpc_do_exit;stdcall;external name 'FPC_DO_EXIT';
Procedure ExitDLL(Exitcode : longint); forward;
procedure asm_exit; stdcall;external name 'asm_exit';
procedure install_exception_handlers;forward;
procedure remove_exception_handlers;forward;
procedure PascalMain;stdcall;external name 'PASCALMAIN';
procedure fpc_do_exit;stdcall;external name 'FPC_DO_EXIT';
Procedure ExitDLL(Exitcode : longint); forward;
procedure asm_exit(Exitcode : longint);external name 'asm_exit';
Procedure system_exit;
begin
@ -920,12 +920,9 @@ begin
{ what about Input and Output ?? PM }
end;
remove_exception_handlers;
{ call exitprocess, with cleanup as required }
asm
xorl %eax, %eax
movw exitcode,%ax
call asm_exit
end;
asm_exit(exitcode);
end;
var
@ -1621,7 +1618,10 @@ end.
{
$Log$
Revision 1.64 2004-12-05 14:36:38 hajny
Revision 1.65 2004-12-12 11:53:47 florian
* remove inline assembler for calling asm_exit
Revision 1.64 2004/12/05 14:36:38 hajny
+ GetProcessID added
Revision 1.63 2004/11/04 09:32:31 peter
@ -1751,4 +1751,4 @@ end.
Revision 1.23 2002/01/25 16:23:03 peter
* merged filesearch() fix
}
}