Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-12-22 07:30:54 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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