From 561307dda382e93ed6fb3edacf612b26e7368428 Mon Sep 17 00:00:00 2001 From: jesus Date: Thu, 11 Aug 2011 20:18:27 +0000 Subject: [PATCH] Fix compile with fpc trunk git-svn-id: trunk@31947 - --- components/tachart/talegend.pas | 2 +- debugger/debugger.pp | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/components/tachart/talegend.pas b/components/tachart/talegend.pas index 3dba1c2021..75630e01fd 100644 --- a/components/tachart/talegend.pas +++ b/components/tachart/talegend.pas @@ -303,7 +303,7 @@ end; procedure TChartLegendItems.SetItem(AIndex: Integer; AValue: TLegendItem); begin - inherited; + inherited SetItem(AIndex, AValue); end; { TLegendItem } diff --git a/debugger/debugger.pp b/debugger/debugger.pp index 369b9bebc3..5844eefc26 100644 --- a/debugger/debugger.pp +++ b/debugger/debugger.pp @@ -4878,7 +4878,7 @@ end; procedure TThreadEntry.LoadDataFromXMLConfig(const AConfig: TXMLConfig; const APath: string); begin - inherited; + inherited LoadDataFromXMLConfig(AConfig, APath); FThreadId := AConfig.GetValue(APath + 'ThreadId', -1); FThreadName := AConfig.GetValue(APath + 'ThreadName', ''); FThreadState := AConfig.GetValue(APath + 'ThreadState', ''); @@ -4886,7 +4886,7 @@ end; procedure TThreadEntry.SaveDataToXMLConfig(const AConfig: TXMLConfig; const APath: string); begin - inherited; + inherited SaveDataToXMLConfig(AConfig, APath); AConfig.SetValue(APath + 'ThreadId', FThreadId); AConfig.SetValue(APath + 'ThreadName', FThreadName); AConfig.SetValue(APath + 'ThreadState', FThreadState);