From b1626fa251b8bc1c2e566ce6c98a14233158eedf Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Mon, 14 Oct 2019 23:07:59 +0000
Subject: [PATCH] POChecker: removed redundant ANrTotal parameter from TStat
 constructor

git-svn-id: trunk@62059 -
---
 components/pochecker/pofamilies.pp | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/components/pochecker/pofamilies.pp b/components/pochecker/pofamilies.pp
index 30457c7130..e2f62a862b 100644
--- a/components/pochecker/pofamilies.pp
+++ b/components/pochecker/pofamilies.pp
@@ -102,7 +102,7 @@ Type
     FNrFuzzy: Integer;
     FNrErrors: Integer;
   public
-    constructor Create(APoName: String; ANrTotal, ANrTranslated, ANrUntranslated, ANrFuzzy, ANrErrors: Integer);
+    constructor Create(APoName: String; ANrTranslated, ANrUntranslated, ANrFuzzy, ANrErrors: Integer);
     function ShortPoName: String;
     property PoName: string read FPoName;
     property NrTotal: Integer read FNrTotal;
@@ -125,7 +125,7 @@ Type
     function GetItems(Index: Integer): TStat;
   public
     procedure Clear;
-    procedure Add(AName: String; ANrTotal, ANrTranslated, ANrUnTranslated, ANrFuzzy, ANrErrors: Integer);
+    procedure Add(AName: String; ANrTranslated, ANrUnTranslated, ANrFuzzy, ANrErrors: Integer);
     procedure AddItemsTo(APoFamilyStats: TPoFamilyStats);
     constructor Create;
     destructor Destroy; override;
@@ -188,10 +188,10 @@ end;
 
 { TStat }
 
-constructor TStat.Create(APoName: String; ANrTotal, ANrTranslated, ANrUntranslated, ANrFuzzy, ANrErrors: Integer);
+constructor TStat.Create(APoName: String; ANrTranslated, ANrUntranslated, ANrFuzzy, ANrErrors: Integer);
 begin
   FPoName := APoName;
-  FNrTotal := ANrTotal;
+  FNrTotal := ANrTranslated + ANrUntranslated + ANrFuzzy;
   FNrTranslated := ANrTranslated;
   FNrUntranslated := ANrUntranslated;
   FNrFuzzy := ANrFuzzy;
@@ -250,9 +250,9 @@ begin
   FList.Clear;
 end;
 
-procedure TPoFamilyStats.Add(AName: String; ANrTotal, ANrTranslated, ANrUnTranslated, ANrFuzzy, ANrErrors: Integer);
+procedure TPoFamilyStats.Add(AName: String; ANrTranslated, ANrUnTranslated, ANrFuzzy, ANrErrors: Integer);
 begin
-  FList.Add(TStat.Create(AName, ANrTotal, ANrTranslated, ANrUntranslated, ANrFuzzy, ANrErrors));
+  FList.Add(TStat.Create(AName, ANrTranslated, ANrUntranslated, ANrFuzzy, ANrErrors));
 end;
 
 procedure TPoFamilyStats.AddItemsTo(APoFamilyStats: TPoFamilyStats);
@@ -263,7 +263,7 @@ begin
   for i := 0 to FList.Count - 1 do
   begin
     AStat := GetItems(i);
-    APoFamilyStats.Add(AStat.PoName, AStat.NrTotal, AStat.NrTranslated,
+    APoFamilyStats.Add(AStat.PoName, AStat.NrTranslated,
                        AStat.NrUntranslated, AStat.NrFuzzy, AStat.NrErrors);
   end;
 end;
@@ -641,7 +641,7 @@ begin
   NrTotal := NrTranslated + NrUntranslated + NrFuzzy;
   if (NrTotal > 0) then
   begin
-    FPoFamilyStats.Add(ChildName, NrTotal, NrTranslated, NrUntranslated, NrFuzzy, ErrorCnt);
+    FPoFamilyStats.Add(ChildName, NrTranslated, NrUntranslated, NrFuzzy, ErrorCnt);
   end;
   //debugln('TPoFamily.CheckIncompatibleFormatArgs: ',Dbgs(ErrorCount),' Errors');
 end;