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

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

View File

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