LazStats: Less hints and warnings.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7897 8e941d3f-bd1b-0410-a28a-d453659cc2b4

applications/lazstats/source/forms/analysis/comparisons/abcnestedunit.pas

@@ -8,6 +8,7 @@
 unit ABCNestedUnit;
 
 {$mode objfpc}{$H+}
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 
 interface
 

applications/lazstats/source/forms/analysis/comparisons/abranovaunit.pas

@@ -4,6 +4,7 @@ unit ABRANOVAUnit;
 
 {$mode objfpc}{$H+}
 {$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
+
 interface
 
 uses

applications/lazstats/source/forms/analysis/comparisons/axsanovaunit.lfm

@@ -226,16 +226,15 @@ inherited AxSAnovaForm: TAxSAnovaForm
   inherited PageControl: TPageControl
     Height = 397
     Width = 457
-    TabIndex = 2
     inherited ReportPage: TTabSheet
       Caption = 'ANOVA Results'
     end
-    object PosthocPage: TTabSheet[1]
+    inherited ChartPage: TTabSheet
-      Caption = 'Post-Hoc'
+      Caption = 'Plots'
       TabVisible = False
     end
-    inherited ChartPage: TTabSheet[2]
+    object PosthocPage: TTabSheet[2]
-      Caption = 'Plots'
+      Caption = 'Post-Hoc'
       TabVisible = False
     end
   end

applications/lazstats/source/forms/analysis/comparisons/axsanovaunit.pas

@@ -3,13 +3,14 @@
 unit AxSANOVAUnit;
 
 {$mode objfpc}{$H+}
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 
 interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs,
   StdCtrls, Buttons, ExtCtrls, ComCtrls, TAStyles,
-  MainUnit, Globals, DataProcs, ReportFrameUnit, BasicStatsReportAndChartFormUnit;
+  MainUnit, Globals, ReportFrameUnit, BasicStatsReportAndChartFormUnit;
 
 type
 

applications/lazstats/source/forms/analysis/comparisons/blkanovaunit.pas

@@ -3,6 +3,7 @@
 unit BlkANOVAUnit;
 
 {$mode objfpc}{$H+}
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 
 interface
 
@@ -175,9 +176,6 @@ const
 { TBlksAnovaForm }
 
 constructor TBlksAnovaForm.Create(AOwner: TComponent);
-var
-  panel: TPanel;
-  lbl: TLabel;
 begin
   inherited;
 

applications/lazstats/source/forms/analysis/comparisons/bnestaunit.pas

@@ -7,6 +7,7 @@
 unit BNestAUnit;
 
 {$MODE objfpc}{$H+}
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 
 interface
 

applications/lazstats/source/forms/analysis/comparisons/withinanovaunit.pas

@@ -3,6 +3,7 @@
 unit WithinANOVAUnit;
 
 {$mode objfpc}{$H+}
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 
 interface
 

applications/lazstats/source/forms/analysis/correlation/canonunit.pas

@@ -167,7 +167,7 @@ var
   root_df: IntDyneVec = nil;
   a_vars: IntDyneVec = nil;
   b_vars: IntDyneVec = nil;
-  selected : IntDyneVec;
+  selected : IntDyneVec = nil;
   RowLabels: StrDyneVec = nil;
   ColLabels: StrDyneVec = nil;
   CanLabels: StrDyneVec = nil;

applications/lazstats/source/forms/analysis/descriptive/boxplotunit.pas

@@ -3,6 +3,7 @@
 unit BoxPlotUnit;
 
 {$mode objfpc}{$H+}
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 
 interface
 

applications/lazstats/source/forms/analysis/multiple_regression/coxregunit.pas

@@ -146,7 +146,6 @@ var
    s0         : double;
    StatI      : double;
    Sf         : double;
-   RowLabels, ColLabels : StrDyneVec;
    CSq        : double; // chi square statistic
    prob       : double; // probability of chi square
    SurvT      : DblDyneVec = nil;
@@ -161,6 +160,8 @@ var
    SD         : DblDyneVec = nil;
    SE         : DblDyneVec = nil;
    x          : DblDyneVec = nil; // data matrix for independent variables
+   RowLabels  : StrDyneVec = nil;
+   ColLabels  : StrDyneVec;
    Lo95       : double;
    Hi95       : double;
    d          : double;

applications/lazstats/source/forms/analysis/multivariate/correspondenceunit.lfm

@@ -13,7 +13,7 @@ object CorrespondenceForm: TCorrespondenceForm
   OnCreate = FormCreate
   OnShow = ResetBtnClick
   Position = poMainFormCenter
-  LCLVersion = '2.1.0.0'
+  LCLVersion = '2.0.10.0'
   object GroupBox1: TGroupBox
     AnchorSideLeft.Control = Owner
     AnchorSideRight.Control = Owner

applications/lazstats/source/forms/analysis/multivariate/correspondenceunit.pas

@@ -47,7 +47,7 @@ type
     ColOut: TBitBtn;
     VarList: TListBox;
     procedure ColInClick(Sender: TObject);
-    procedure ColListSelectionChange(Sender: TObject; User: boolean);
+    procedure ColListSelectionChange(Sender: TObject; {%H-}User: boolean);
     procedure ColOutClick(Sender: TObject);
     procedure ComputeBtnClick(Sender: TObject);
     procedure FormActivate(Sender: TObject);

applications/lazstats/source/forms/analysis/multivariate/hierarchunit.pas

@@ -3,6 +3,7 @@
 unit HierarchUnit;
 
 {$mode objfpc}{$H+}
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 
 interface
 

applications/lazstats/source/forms/analysis/nonparametric/riditunit.pas

@@ -1,6 +1,7 @@
 unit RIDITUnit;
 
 {$mode objfpc}{$H+}
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 
 interface
 

applications/lazstats/source/forms/misc/basicstatsparamsformunit.pas

@@ -1,6 +1,7 @@
 unit BasicStatsParamsFormUnit;
 
 {$mode objfpc}{$H+}
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 
 interface
 

applications/lazstats/source/forms/misc/blankfrmunit.pas

@@ -53,7 +53,7 @@ procedure TBlankFrm.FormActivate(Sender: TObject);
 var
    w: Integer;
 begin
-  w := MaxValue([SaveBtn.Width, PrintBtn.Width, CloseBtn.Width]);
+  w := {%H-}MaxValue([SaveBtn.Width, PrintBtn.Width, CloseBtn.Width]);
   SaveBtn.Constraints.MinWidth := w;
   PrintBtn.Constraints.MinWidth := w;
   CloseBtn.Constraints.MinWidth := w;

applications/lazstats/source/forms/simulations/corsimunit.pas

@@ -1,6 +1,7 @@
 unit CorSimUnit;
 
 {$mode objfpc}{$H+}
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 
 interface
 

applications/lazstats/source/forms/simulations/pcurvesunit.pas

@@ -1,6 +1,7 @@
 unit PCurvesUnit;
 
 {$mode objfpc}{$H+}
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 
 interface
 

applications/lazstats/source/forms/simulations/probzunit.pas

@@ -1,7 +1,7 @@
 unit ProbZUnit;
 
 {$mode objfpc}{$H+}
-
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 interface
 
 uses

applications/lazstats/source/frames/reportframeunit.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, ComCtrls, ExtCtrls, StdCtrls, Dialogs,
-  PrintersDlgs, MainDM, Utils;
+  PrintersDlgs, MainDM;
 
 type
 

applications/lazstats/source/units/anovatestsunit.pas

@@ -596,9 +596,9 @@ procedure HomogeneityTest(GroupCol: integer; VarColumn: integer; NoCases: intege
 var
   i, j, k, intvalue, Nf1cells: integer;
   min, max: integer;
-  zscores: DblDyneMat;
+  zscores: DblDyneMat = nil;
-  medians: DblDyneVec;
+  medians: DblDyneVec = nil;
-  cellcnts: IntDyneVec;
+  cellcnts: IntDyneVec = nil;
   X: Double;
 begin
   if GroupCol >= OS3MainFrm.DataGrid.ColCount then

applications/lazstats/source/units/functionslib.pas

@@ -1995,9 +1995,9 @@ end;
 procedure poisson_cdf_values (VAR n : integer; VAR a : double; VAR x : integer;
                               VAR fx : double );
 VAR
-   avec : DblDyneVec;
+   avec : DblDyneVec = nil;
-   fxvec : DblDyneVec;
+   fxvec : DblDyneVec = nil;
-   xvec : IntDyneVec;
+   xvec : IntDyneVec = nil;
 begin
    SetLength(avec,21);
    SetLength(fxvec,21);

applications/lazstats/source/units/matrixunit.pas

@@ -225,6 +225,7 @@ function VecCreate(ALength: Integer; ADefault: Double = 0.0): TDblVector;
 var
   i: Integer;
 begin
+  Result := nil;
   SetLength(Result, ALength);
   for i := 0 to High(Result) do
     Result[i] := ADefault;
@@ -513,6 +514,7 @@ function MatCreate(n, m: Integer; ADefault: Double = 0.0): TDblMatrix;
 var
   i, j: Integer;
 begin
+  Result := nil;
   SetLength(Result, n,m);
   for i := 0 to n-1 do
     for j := 0 to m-1 do
@@ -1178,6 +1180,7 @@ function IntVecCreate(n: Integer; ADefault: Integer = 0): TIntVector;
 var
   i: Integer;
 begin
+  Result := nil;
   SetLength(Result, n);
   for i := 0 to High(Result) do
     Result[i] := ADefault;
@@ -1188,6 +1191,7 @@ function IntMatCreate(n, m: Integer; ADefault: Integer = 0): TIntMatrix;
 var
   i, j: Integer;
 begin
+  Result := nil;
   SetLength(Result, n,m);
   for i := 0 to n-1 do
     for j := 0 to m-1 do
@@ -1199,6 +1203,7 @@ function CubeCreate(n1, n2, n3: Integer; ADefault: Double = 0.0): TDblCube;
 var
   i,j,k: Integer;
 begin
+  Result := nil;
   SetLength(Result, n1, n2, n3);
   for i := 0 to n1 - 1 do
     for j := 0 to n2 - 1 do
@@ -1211,6 +1216,7 @@ function IntCubeCreate(n1, n2, n3: Integer; ADefault: Integer = 0): TIntCube;
 var
   i, j, k: Integer;
 begin
+  Result := nil;
   SetLength(Result, n1, n2, n3);
   for i := 0 to n1 - 1 do
     for j := 0 to n2 - 1 do
@@ -1223,6 +1229,7 @@ function QuadCreate(n1, n2, n3, n4: Integer; ADefault: Double = 0.0): TDblQuad;
 var
   i, j, k, l: Integer;
 begin
+  Result := nil;
   SetLength(Result, n1, n2, n3, n4);
   for i := 0 to n1 - 1 do
     for j := 0 to n2 - 1 do
@@ -1236,6 +1243,7 @@ function IntQuadCreate(n1, n2, n3, n4: Integer; ADefault: Integer = 0): TIntQuad
 var
   i, j, k, l: Integer;
 begin
+  Result := nil;
   SetLength(Result, n1, n2, n3, 4);
   for i := 0 to n1 - 1 do
     for j := 0 to n2 - 1 do