paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-28 14:01:39 +01: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; 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; procedure new_int00;
begin begin
HandleError(200); HandleError(200);
end; end;
procedure new_int75; procedure new_int75;
begin begin
asm asm
@ -1377,7 +1370,10 @@ Begin
End. End.
{ {
$Log$ $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) * !proxy support in environment added (Peter)
Revision 1.30 2000/01/20 23:38:02 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 begin
asm asm
movb $0x4c,%ah movb $0x4c,%ah
movb errnum,%al movb exitcode,%al
call syscall call syscall
end; end;
end; end;
@ -667,13 +666,6 @@ end;
{*****************************************************************************
System Dependent Exit code
*****************************************************************************}
Procedure system_exit;
begin
end;
{**************************************************************************** {****************************************************************************
System unit initialization. System unit initialization.
@ -760,7 +752,10 @@ begin
end. end.
{ {
$Log$ $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 * support fm_inout as stdoutput for assign(f,'');rewrite(f,1); becuase
rewrite opens always with filemode 2 rewrite opens always with filemode 2