From 77ccffd53ab6b29f292121987ac5cc945e7ef748 Mon Sep 17 00:00:00 2001 From: michael Date: Fri, 15 Oct 2010 07:46:08 +0000 Subject: * Fixed memory allocation in registration git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16163 3ad0048d-3df7-0310-abae-a5850022a9f2 --- packages/fcl-extra/src/win/daemonapp.inc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'packages/fcl-extra') diff --git a/packages/fcl-extra/src/win/daemonapp.inc b/packages/fcl-extra/src/win/daemonapp.inc index afec569ce1..35d4874a6c 100644 --- a/packages/fcl-extra/src/win/daemonapp.inc +++ b/packages/fcl-extra/src/win/daemonapp.inc @@ -385,7 +385,7 @@ Var RV : Integer; begin - GetMem(P,SizeOf(TServiceTableEntry)*FMapper.DaemonDefs.Count+1); + GetMem(P,SizeOf(TServiceTableEntry)*(FMapper.DaemonDefs.Count+1)); Try C:=FMapper.DaemonDefs.Count; For I:=0 to C-1 do -- cgit v1.2.1