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

* system_exit instead of halt

Browse Source
This commit is contained in:
pierre 2000-02-28 09:42:16 +00:00
parent b3e1b84cbc
commit 63aea60fdb
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/go32v1/system.pp
View File

@ -135,18 +135,6 @@ begin
HandleError(202); HandleError(202);
end; end;
procedure halt(errnum : byte);
begin
do_exit;
flush(stderr);
asm
movl $0x4c00,%eax
movb errnum,%al
int $0x21
end;
end;
function paramcount : longint; function paramcount : longint;
begin begin
paramcount := argc - 1; paramcount := argc - 1;
@ -596,7 +584,16 @@ end;
System Dependent Exit code System Dependent Exit code
*****************************************************************************} *****************************************************************************}
Procedure system_exit; Procedure system_exit;
var
err : byte;
begin begin
flush(stderr);
err:=exitcode and $ff;
asm
movl $0x4c00,%eax
movb err,%al
int $0x21
end;
end; end;
{***************************************************************************** {*****************************************************************************
@ -618,7 +615,10 @@ Begin
End. End.
{ {
$Log$ $Log$
Revision 1.9 2000-01-20 23:38:02 peter Revision 1.10 2000-02-28 09:42:16 pierre
* system_exit instead of halt
Revision 1.9 2000/01/20 23:38:02 peter
* support fm_inout as stdoutput for assign(f,'');rewrite(f,1); becuase * support fm_inout as stdoutput for assign(f,'');rewrite(f,1); becuase
rewrite opens always with filemode 2 rewrite opens always with filemode 2