From c4818085b8a4a4a048ffec4f137018497d88b756 Mon Sep 17 00:00:00 2001
From: cpicanco <cpicanco42@gmail.com>
Date: Sat, 17 Dec 2016 14:43:41 -0300
Subject: [PATCH] fix segmentation fault in chat recording

---
 units/game_experiment.pas | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/units/game_experiment.pas b/units/game_experiment.pas
index 5ad5698..e068f25 100644
--- a/units/game_experiment.pas
+++ b/units/game_experiment.pas
@@ -738,8 +738,11 @@ end;
 
 procedure TExperiment.WriteChatLn(ALn: string);
 begin
-  FRegChat.SaveData(ALn);
-  FRegChat.CloseAndOpen;
+  if Assigned(FRegChat) then
+    begin
+      FRegChat.SaveData(ALn);
+      FRegChat.CloseAndOpen;
+    end;
 end;
 
 constructor TExperiment.Create(AOwner: TComponent);
@@ -769,8 +772,7 @@ begin
   FReportReader.SetXLastRows(Condition[CurrentCondition].EndCriterium.LastCycles);
 
   FRegData := TRegData.Create(Self, LDataPath+'000.dat');
-  if ShowChat then
-    FRegChat := TRegData.Create(Self, LDataPath+'000.chat');
+  FRegChat := TRegData.Create(Self, LDataPath+'000.chat');
   WriteReportHeader;
 end;
 
--
libgit2 0.21.2