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,8 +738,11 @@ end; | ||
| 738 | 738 | ||
| 739 | procedure TExperiment.WriteChatLn(ALn: string); | 739 | procedure TExperiment.WriteChatLn(ALn: string); |
| 740 | begin | 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 | end; | 746 | end; |
| 744 | 747 | ||
| 745 | constructor TExperiment.Create(AOwner: TComponent); | 748 | constructor TExperiment.Create(AOwner: TComponent); |
| @@ -769,8 +772,7 @@ begin | @@ -769,8 +772,7 @@ begin | ||
| 769 | FReportReader.SetXLastRows(Condition[CurrentCondition].EndCriterium.LastCycles); | 772 | FReportReader.SetXLastRows(Condition[CurrentCondition].EndCriterium.LastCycles); |
| 770 | 773 | ||
| 771 | FRegData := TRegData.Create(Self, LDataPath+'000.dat'); | 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 | WriteReportHeader; | 776 | WriteReportHeader; |
| 775 | end; | 777 | end; |
| 776 | 778 |