From 366aedc6d829bddee3b6063c56bf5244ecee74ab Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 22 Jan 2022 17:35:51 +0100
Subject: [PATCH]   * more false positives of unintialized varibles worked
 around

---
 rtl/inc/sstrings.inc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/rtl/inc/sstrings.inc b/rtl/inc/sstrings.inc
index 2279fbe229..932296f5fa 100644
--- a/rtl/inc/sstrings.inc
+++ b/rtl/inc/sstrings.inc
@@ -1167,6 +1167,9 @@ begin
   Temp:=0;
   Code:=InitVal(s,negative,base);
 
+  { avoid error about being uninitialized }
+  UnsignedUpperLimit := 0;
+
   if (base=10) or negative then
     begin //always limit to either Low(DestType) or High(DestType)
       case DestSize of