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.

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}