From 93494bf8bf41ca0dc37b698bc2852cb82687b609 Mon Sep 17 00:00:00 2001
From: Karoly Balogh <karoly@freepascal.org>
Date: Fri, 4 Feb 2022 11:58:16 +0100
Subject: [PATCH] * rtl/atari: use the haltproc declared in the startup code
 instead of calling pterm in the system unit directly.

---
 rtl/atari/system.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/rtl/atari/system.pp b/rtl/atari/system.pp
index 89bcaadac7..60efcc1951 100644
--- a/rtl/atari/system.pp
+++ b/rtl/atari/system.pp
@@ -133,9 +133,11 @@ var
 {*****************************************************************************
                          System Dependent Exit code
 *****************************************************************************}
+procedure haltproc(e:longint); cdecl; external name '_haltproc';
+
 Procedure system_exit;
 begin
-  gemdos_pterm(ExitCode);
+  haltproc(ExitCode);
 end;
 
 {*****************************************************************************