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);
|
||||
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}
|
||||
|
Loading…
Reference in New Issue
Block a user