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

Don’t add the length of the last segment generated in the previous execution to that of the segment in the root file.

Browse Source 
This would occur if ORCA/C remained in memory and was restarted after a previous execution, because the 'pc' value was not reinitialized. The ORCA linker seems to ignore the too-long segment length value, but ORCA/C should generate a correct value that actually corresponds to the length of the segment.
This commit is contained in:
Stephen Heumann 2016-11-25 23:38:32 -06:00
parent a4bffe65e5
commit 41fb05404e
1 changed files with 1 additions and 0 deletions

1
Native.pas

@ -2021,6 +2021,7 @@ procedure InitFile {keepName: gsosOutStringPtr; keepFlag: integer; partial: bool
OpenObj(fname2);
{write the header}
InitNative;
Header(@'~_ROOT', $4000, 0);
{new desk accessory initialization}