From 7c30501e11b503e4abe2fe617bfd34efff870afa Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 10 Jan 2024 15:53:13 +0100
Subject: [PATCH] * Initialize result in CountConnections

(cherry picked from commit b4d4c30a45a2072d3ce448fd8b62cfa58b7cdc90)
---
 packages/fcl-db/src/sqldb/sqldbpool.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/fcl-db/src/sqldb/sqldbpool.pp b/packages/fcl-db/src/sqldb/sqldbpool.pp
index d78ab89cc3..9304147543 100644
--- a/packages/fcl-db/src/sqldb/sqldbpool.pp
+++ b/packages/fcl-db/src/sqldb/sqldbpool.pp
@@ -1181,6 +1181,7 @@ Var
   Key : String;
   L : TConnectionList;
 begin
+  Result:=0;
   Key:=CreateKey(aDef);
   Lock;
   try