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

* halt moved to system.inc

Browse Source
This commit is contained in:
peter 2000-02-09 12:39:11 +00:00
parent 1ed0599052
commit 6d8e13cacb
2 changed files with 11 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/go32v2/system.pp
View File

@ -626,19 +626,12 @@ begin
end;
procedure halt(errnum : byte);
begin
exitcode:=errnum;
do_exit;
{ do_exit should call system_exit but this does not hurt }
System_exit;
end;
procedure new_int00;
begin
HandleError(200);
end;
procedure new_int75;
begin
asm
@ -1377,7 +1370,10 @@ Begin
End.
{
$Log$
Revision 1.31 2000-01-24 11:57:18 daniel
Revision 1.32 2000-02-09 12:41:14 peter
* halt moved to system.inc
Revision 1.31 2000/01/24 11:57:18 daniel
* !proxy support in environment added (Peter)
Revision 1.30 2000/01/20 23:38:02 peter

17
rtl/os2/sysos2.pas
View File

@ -169,12 +169,11 @@ end;
****************************************************************************}
procedure halt(errnum:byte);
procedure system_exit;
begin
asm
movb $0x4c,%ah
movb errnum,%al
movb exitcode,%al
call syscall
end;
end;
@ -667,13 +666,6 @@ end;
{*****************************************************************************
System Dependent Exit code
*****************************************************************************}
Procedure system_exit;
begin
end;
{****************************************************************************
System unit initialization.
@ -760,7 +752,10 @@ begin
end.
{
$Log$
Revision 1.24 2000-01-20 23:38:02 peter
Revision 1.25 2000-02-09 12:39:11 peter
* halt moved to system.inc
Revision 1.24 2000/01/20 23:38:02 peter
* support fm_inout as stdoutput for assign(f,'');rewrite(f,1); becuase
rewrite opens always with filemode 2