paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-24 17:50:45 +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

24
rtl/win32/system.pp
View File

@ -899,12 +899,12 @@ end;
System Dependent Exit code System Dependent Exit code
*****************************************************************************} *****************************************************************************}
procedure install_exception_handlers;forward; procedure install_exception_handlers;forward;
procedure remove_exception_handlers;forward; procedure remove_exception_handlers;forward;
procedure PascalMain;stdcall;external name 'PASCALMAIN'; procedure PascalMain;stdcall;external name 'PASCALMAIN';
procedure fpc_do_exit;stdcall;external name 'FPC_DO_EXIT'; procedure fpc_do_exit;stdcall;external name 'FPC_DO_EXIT';
Procedure ExitDLL(Exitcode : longint); forward; Procedure ExitDLL(Exitcode : longint); forward;
procedure asm_exit; stdcall;external name 'asm_exit'; procedure asm_exit(Exitcode : longint);external name 'asm_exit';
Procedure system_exit; Procedure system_exit;
begin begin
@ -920,12 +920,9 @@ begin
{ what about Input and Output ?? PM } { what about Input and Output ?? PM }
end; end;
remove_exception_handlers; remove_exception_handlers;
{ call exitprocess, with cleanup as required } { call exitprocess, with cleanup as required }
asm asm_exit(exitcode);
xorl %eax, %eax
movw exitcode,%ax
call asm_exit
end;
end; end;
var var
@ -1621,7 +1618,10 @@ end.
{ {
$Log$ $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 + GetProcessID added
Revision 1.63 2004/11/04 09:32:31 peter Revision 1.63 2004/11/04 09:32:31 peter