|
@@ -133,9 +133,11 @@ var
|
|
{*****************************************************************************
|
|
{*****************************************************************************
|
|
System Dependent Exit code
|
|
System Dependent Exit code
|
|
*****************************************************************************}
|
|
*****************************************************************************}
|
|
|
|
+procedure haltproc(e:longint); cdecl; external name '_haltproc';
|
|
|
|
+
|
|
Procedure system_exit;
|
|
Procedure system_exit;
|
|
begin
|
|
begin
|
|
- gemdos_pterm(ExitCode);
|
|
|
|
|
|
+ haltproc(ExitCode);
|
|
end;
|
|
end;
|
|
|
|
|
|
{*****************************************************************************
|
|
{*****************************************************************************
|