From 44499bdddbee1aaa24e1214f423cbb816f6e69b0 Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Sun, 11 Dec 2022 22:14:09 -0600
Subject: [PATCH] Make root files jump to the shutdown code rather than calling
 it.

This better reflects that the shutdown code will never return.
---
 Native.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Native.pas b/Native.pas
index dcf4676..f8d775d 100644
--- a/Native.pas
+++ b/Native.pas
@@ -2533,12 +2533,12 @@ procedure InitFile {keepName: gsosOutStringPtr; keepFlag: integer; partial: bool
          RefName(@'~C_STARTUP', 0, 3, 0);
       CnOut(m_jsl);
       RefName(@'main', 0, 3, 0);
-      CnOut(m_jsl);
+      isJSL := false;
+      CnOut(m_jml);
       if rtl then
          RefName(@'~C_SHUTDOWN2', 0, 3, 0)
       else
          RefName(@'~C_SHUTDOWN', 0, 3, 0);
-      isJSL := false;
       end;
 
    {finish the current segment}