From 41fb05404e3778acce5ba702ab9fa5a2a9ce57fa Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Fri, 25 Nov 2016 23:38:32 -0600
Subject: [PATCH] =?UTF-8?q?Don=E2=80=99t=20add=20the=20length=20of=20the?=
 =?UTF-8?q?=20last=20segment=20generated=20in=20the=20previous=20execution?=
 =?UTF-8?q?=20to=20that=20of=20the=20segment=20in=20the=20root=20file.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Native.pas b/Native.pas
index 63d7ee3..6a3ee5b 100644
--- a/Native.pas
+++ b/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}