Commit c4818085b8a4a4a048ffec4f137018497d88b756
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
... | ... | @@ -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 | ... | ... |