From 8d9fe90da00698d3006f676ddb0aaf995c19ac92 Mon Sep 17 00:00:00 2001 From: joaopauloschuler Date: Sun, 31 Jan 2021 09:48:56 +0100 Subject: [PATCH] Fixing #39. --- neural/neuralnetwork.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/neural/neuralnetwork.pas b/neural/neuralnetwork.pas index 23631ed3..be229c01 100644 --- a/neural/neuralnetwork.pas +++ b/neural/neuralnetwork.pas @@ -888,7 +888,7 @@ TNNetConvolutionBase = class(TNNetConvolutionAbstract) procedure SetPrevLayer(pPrevLayer: TNNetLayer); override; function ShouldUseInterleavedDotProduct:boolean; {$IFDEF Release} inline; {$ENDIF} public - constructor Create(pNumFeatures, pFeatureSize, pInputPadding, pStride: integer; pSuppressBias: integer = 0); virtual; overload; + constructor Create(pNumFeatures, pFeatureSize, pInputPadding, pStride: integer; pSuppressBias: integer = 0); overload; virtual; destructor Destroy(); override; {$IFDEF OpenCL} procedure EnableOpenCL(DotProductKernel: TDotProductKernel); override; @@ -934,7 +934,7 @@ TNNetConvolutionSharedWeights = class(TNNetConvolution) private FLinkedLayer: TNNetConvolution; public - constructor Create(LinkedLayer: TNNetLayer); virtual; overload; + constructor Create(LinkedLayer: TNNetLayer); overload; virtual; destructor Destroy; override; end;