Make root files jump to the shutdown code rather than calling it.

This better reflects that the shutdown code will never return.
This commit is contained in:
Stephen Heumann 2022-12-11 22:14:09 -06:00
parent 17936a14ed
commit 44499bdddb

View File

@ -2533,12 +2533,12 @@ procedure InitFile {keepName: gsosOutStringPtr; keepFlag: integer; partial: bool
RefName(@'~C_STARTUP', 0, 3, 0); RefName(@'~C_STARTUP', 0, 3, 0);
CnOut(m_jsl); CnOut(m_jsl);
RefName(@'main', 0, 3, 0); RefName(@'main', 0, 3, 0);
CnOut(m_jsl); isJSL := false;
CnOut(m_jml);
if rtl then if rtl then
RefName(@'~C_SHUTDOWN2', 0, 3, 0) RefName(@'~C_SHUTDOWN2', 0, 3, 0)
else else
RefName(@'~C_SHUTDOWN', 0, 3, 0); RefName(@'~C_SHUTDOWN', 0, 3, 0);
isJSL := false;
end; end;
{finish the current segment} {finish the current segment}