From ebecfb1ce9edfa77ff462379581429373a8cd270 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Wed, 30 May 2018 14:10:12 +0000
Subject: [PATCH] + added a FFixupThreads property with a TOmfThreads object to
 TOmfObjInput

git-svn-id: trunk@39149 -
---
 compiler/ogomf.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas
index a6b7ad799e..771e5cec91 100644
--- a/compiler/ogomf.pas
+++ b/compiler/ogomf.pas
@@ -151,6 +151,7 @@ interface
         FLNames: TOmfOrderedNameCollection;
         FExtDefs: TFPHashObjectList;
         FPubDefs: TFPHashObjectList;
+        FFixupThreads: TOmfThreads;
         FRawRecord: TOmfRawRecord;
         FCaseSensitiveSegments: Boolean;
         FCaseSensitiveSymbols: Boolean;
@@ -1870,6 +1871,7 @@ implementation
         FLNames:=TOmfOrderedNameCollection.Create(True);
         FExtDefs:=TFPHashObjectList.Create;
         FPubDefs:=TFPHashObjectList.Create;
+        FFixupThreads:=TOmfThreads.Create;
         FRawRecord:=TOmfRawRecord.Create;
         CaseSensitiveSegments:=False;
         CaseSensitiveSymbols:=True;
@@ -1878,6 +1880,7 @@ implementation
     destructor TOmfObjInput.destroy;
       begin
         FRawRecord.Free;
+        FFixupThreads.Free;
         FPubDefs.Free;
         FExtDefs.Free;
         FLNames.Free;