Browse Source

* rtl/atari: use the haltproc declared in the startup code instead of calling pterm in the system unit directly.

Karoly Balogh 3 years ago
parent
commit
93494bf8bf
1 changed files with 3 additions and 1 deletions
  1. 3 1
      rtl/atari/system.pp

+ 3 - 1
rtl/atari/system.pp

@@ -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;
 
 
 {*****************************************************************************
 {*****************************************************************************