paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 04:09:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more false positives of unintialized varibles worked around

Browse Source
This commit is contained in:
florian 2022-01-22 17:35:51 +01:00
parent 45840da4dd
commit 366aedc6d8
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/sstrings.inc
View File

@ -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