Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Fixed memory allocation in registration

git-svn-id: trunk@16163 -
michael 15 years ago
parent
d3bdf2577c
commit
38aacec93d
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/fcl-extra/src/win/daemonapp.inc

+ 1 - 1
packages/fcl-extra/src/win/daemonapp.inc
View File 

@@ -385,7 +385,7 @@ Var
 
   RV : Integer;
 
   RV : Integer;
 
   
   
 begin
 
 begin
 
-  GetMem(P,SizeOf(TServiceTableEntry)*FMapper.DaemonDefs.Count+1);
 
+  GetMem(P,SizeOf(TServiceTableEntry)*(FMapper.DaemonDefs.Count+1));
 
   Try
 
   Try
 
     C:=FMapper.DaemonDefs.Count;
 
     C:=FMapper.DaemonDefs.Count;
 
     For I:=0 to C-1 do
 
     For I:=0 to C-1 do