Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-10-31 17:04:42 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source 
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
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Native.pas
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}