Download as
Browse Code »

Commit c4818085b8a4a4a048ffec4f137018497d88b756

Authored by Carlos Picanco
1 parent af8139a3
Exists in master

fix segmentation fault in chat recording

Showing 1 changed file with 6 additions and 4 deletions   Show diff stats
units/game_experiment.pas
  Diff comments   View file @c481808
... ... @@ -738,8 +738,11 @@ end;
738 738  
739 739 procedure TExperiment.WriteChatLn(ALn: string);
740 740 begin
741   - FRegChat.SaveData(ALn);
742   - FRegChat.CloseAndOpen;
  741 + if Assigned(FRegChat) then
  742 + begin
  743 + FRegChat.SaveData(ALn);
  744 + FRegChat.CloseAndOpen;
  745 + end;
743 746 end;
744 747  
745 748 constructor TExperiment.Create(AOwner: TComponent);
... ... @@ -769,8 +772,7 @@ begin
769 772 FReportReader.SetXLastRows(Condition[CurrentCondition].EndCriterium.LastCycles);
770 773  
771 774 FRegData := TRegData.Create(Self, LDataPath+'000.dat');
772   - if ShowChat then
773   - FRegChat := TRegData.Create(Self, LDataPath+'000.chat');
  775 + FRegChat := TRegData.Create(Self, LDataPath+'000.chat');
774 776 WriteReportHeader;
775 777 end;
776 778  
... ...