mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-10-31 17:04:42 +00:00
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:
parent
17936a14ed
commit
44499bdddb
@ -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}
|
||||||
|
Loading…
Reference in New Issue
Block a user