From 896ca4bb75bd4d4e4a70695245d2dd063fcc3c31 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sat, 12 Aug 2023 12:26:11 +0200
Subject: [PATCH] * Initialize result in StingToHex. Fixes issue #40388

---
 packages/fcl-hash/src/fphashutils.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/fcl-hash/src/fphashutils.pp b/packages/fcl-hash/src/fphashutils.pp
index 7457a86190..2e44b4334b 100644
--- a/packages/fcl-hash/src/fphashutils.pp
+++ b/packages/fcl-hash/src/fphashutils.pp
@@ -236,6 +236,7 @@ end;
 
 function StringToHex(const s: ansistring): ansistring;
 begin
+  Result:='';
   if s='' then exit;
   BytesToHexStr(Result,@s[1],length(s));
 end;