diff --git a/applications/lazstats/source/forms/analysis/comparisons/abcnestedunit.pas b/applications/lazstats/source/forms/analysis/comparisons/abcnestedunit.pas index 1b21e5a1f..2e23150e2 100644 --- a/applications/lazstats/source/forms/analysis/comparisons/abcnestedunit.pas +++ b/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 diff --git a/applications/lazstats/source/forms/analysis/comparisons/abranovaunit.pas b/applications/lazstats/source/forms/analysis/comparisons/abranovaunit.pas index 1a91870d0..e74c7b894 100644 --- a/applications/lazstats/source/forms/analysis/comparisons/abranovaunit.pas +++ b/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 diff --git a/applications/lazstats/source/forms/analysis/comparisons/axsanovaunit.lfm b/applications/lazstats/source/forms/analysis/comparisons/axsanovaunit.lfm index 539baf1e2..dfcd0fe77 100644 --- a/applications/lazstats/source/forms/analysis/comparisons/axsanovaunit.lfm +++ b/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] - Caption = 'Post-Hoc' + inherited ChartPage: TTabSheet + Caption = 'Plots' TabVisible = False end - inherited ChartPage: TTabSheet[2] - Caption = 'Plots' + object PosthocPage: TTabSheet[2] + Caption = 'Post-Hoc' TabVisible = False end end diff --git a/applications/lazstats/source/forms/analysis/comparisons/axsanovaunit.pas b/applications/lazstats/source/forms/analysis/comparisons/axsanovaunit.pas index 23b985b2b..ba3c90d0e 100644 --- a/applications/lazstats/source/forms/analysis/comparisons/axsanovaunit.pas +++ b/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 diff --git a/applications/lazstats/source/forms/analysis/comparisons/blkanovaunit.pas b/applications/lazstats/source/forms/analysis/comparisons/blkanovaunit.pas index 420a033f7..70205faaa 100644 --- a/applications/lazstats/source/forms/analysis/comparisons/blkanovaunit.pas +++ b/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; diff --git a/applications/lazstats/source/forms/analysis/comparisons/bnestaunit.pas b/applications/lazstats/source/forms/analysis/comparisons/bnestaunit.pas index df6245753..720d9d4fc 100644 --- a/applications/lazstats/source/forms/analysis/comparisons/bnestaunit.pas +++ b/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 diff --git a/applications/lazstats/source/forms/analysis/comparisons/withinanovaunit.pas b/applications/lazstats/source/forms/analysis/comparisons/withinanovaunit.pas index 2869f988a..bbd115faa 100644 --- a/applications/lazstats/source/forms/analysis/comparisons/withinanovaunit.pas +++ b/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 diff --git a/applications/lazstats/source/forms/analysis/correlation/canonunit.pas b/applications/lazstats/source/forms/analysis/correlation/canonunit.pas index 1954a8b62..16d15121b 100644 --- a/applications/lazstats/source/forms/analysis/correlation/canonunit.pas +++ b/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; diff --git a/applications/lazstats/source/forms/analysis/descriptive/boxplotunit.pas b/applications/lazstats/source/forms/analysis/descriptive/boxplotunit.pas index 3cb1cf45d..1c8886763 100644 --- a/applications/lazstats/source/forms/analysis/descriptive/boxplotunit.pas +++ b/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 diff --git a/applications/lazstats/source/forms/analysis/multiple_regression/coxregunit.pas b/applications/lazstats/source/forms/analysis/multiple_regression/coxregunit.pas index 30b2d608e..78f30faf6 100644 --- a/applications/lazstats/source/forms/analysis/multiple_regression/coxregunit.pas +++ b/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; diff --git a/applications/lazstats/source/forms/analysis/multivariate/correspondenceunit.lfm b/applications/lazstats/source/forms/analysis/multivariate/correspondenceunit.lfm index 2d47150a1..a4f45adbd 100644 --- a/applications/lazstats/source/forms/analysis/multivariate/correspondenceunit.lfm +++ b/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 diff --git a/applications/lazstats/source/forms/analysis/multivariate/correspondenceunit.pas b/applications/lazstats/source/forms/analysis/multivariate/correspondenceunit.pas index f72e0d636..2dba5777d 100644 --- a/applications/lazstats/source/forms/analysis/multivariate/correspondenceunit.pas +++ b/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); diff --git a/applications/lazstats/source/forms/analysis/multivariate/hierarchunit.pas b/applications/lazstats/source/forms/analysis/multivariate/hierarchunit.pas index f5d3df50f..b6f855ffc 100644 --- a/applications/lazstats/source/forms/analysis/multivariate/hierarchunit.pas +++ b/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 diff --git a/applications/lazstats/source/forms/analysis/nonparametric/riditunit.pas b/applications/lazstats/source/forms/analysis/nonparametric/riditunit.pas index 999addea6..ad224fe69 100644 --- a/applications/lazstats/source/forms/analysis/nonparametric/riditunit.pas +++ b/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 diff --git a/applications/lazstats/source/forms/misc/basicstatsparamsformunit.pas b/applications/lazstats/source/forms/misc/basicstatsparamsformunit.pas index 597609082..894f205fc 100644 --- a/applications/lazstats/source/forms/misc/basicstatsparamsformunit.pas +++ b/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 diff --git a/applications/lazstats/source/forms/misc/blankfrmunit.pas b/applications/lazstats/source/forms/misc/blankfrmunit.pas index 4aaea1fc0..7993f7930 100644 --- a/applications/lazstats/source/forms/misc/blankfrmunit.pas +++ b/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; diff --git a/applications/lazstats/source/forms/simulations/corsimunit.pas b/applications/lazstats/source/forms/simulations/corsimunit.pas index e74799b4c..8d09bc977 100644 --- a/applications/lazstats/source/forms/simulations/corsimunit.pas +++ b/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 diff --git a/applications/lazstats/source/forms/simulations/pcurvesunit.pas b/applications/lazstats/source/forms/simulations/pcurvesunit.pas index 2ab8640a8..8a566e69f 100644 --- a/applications/lazstats/source/forms/simulations/pcurvesunit.pas +++ b/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 diff --git a/applications/lazstats/source/forms/simulations/probzunit.pas b/applications/lazstats/source/forms/simulations/probzunit.pas index 4f94392d5..c30c2c0d8 100644 --- a/applications/lazstats/source/forms/simulations/probzunit.pas +++ b/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 diff --git a/applications/lazstats/source/frames/reportframeunit.pas b/applications/lazstats/source/frames/reportframeunit.pas index c8685853a..b7d8b167f 100644 --- a/applications/lazstats/source/frames/reportframeunit.pas +++ b/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 diff --git a/applications/lazstats/source/units/anovatestsunit.pas b/applications/lazstats/source/units/anovatestsunit.pas index fd71837a3..eed35b04c 100644 --- a/applications/lazstats/source/units/anovatestsunit.pas +++ b/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; - medians: DblDyneVec; - cellcnts: IntDyneVec; + zscores: DblDyneMat = nil; + medians: DblDyneVec = nil; + cellcnts: IntDyneVec = nil; X: Double; begin if GroupCol >= OS3MainFrm.DataGrid.ColCount then diff --git a/applications/lazstats/source/units/functionslib.pas b/applications/lazstats/source/units/functionslib.pas index 7268565c9..0af860d6d 100644 --- a/applications/lazstats/source/units/functionslib.pas +++ b/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; - fxvec : DblDyneVec; - xvec : IntDyneVec; + avec : DblDyneVec = nil; + fxvec : DblDyneVec = nil; + xvec : IntDyneVec = nil; begin SetLength(avec,21); SetLength(fxvec,21); diff --git a/applications/lazstats/source/units/matrixunit.pas b/applications/lazstats/source/units/matrixunit.pas index 7bcf4d2aa..fb3703adb 100644 --- a/applications/lazstats/source/units/matrixunit.pas +++ b/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