diff options
author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-23 19:06:18 +0000 |
---|---|---|
committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-23 19:06:18 +0000 |
commit | e6ca7987ef6521c3545105539e51ff9d41dfad43 (patch) | |
tree | e9b27fbf9e4d3e2895f608d1ef431e998df52baa | |
parent | bee20fdc6c1055b6140d1976a586b1b1b04370d2 (diff) | |
download | fpc-e6ca7987ef6521c3545105539e51ff9d41dfad43.tar.gz |
* avoid rangecheck mantis 0038791
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49250 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | rtl/win/sysutils.pp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rtl/win/sysutils.pp b/rtl/win/sysutils.pp index 594fc0abfc..2776b5e135 100644 --- a/rtl/win/sysutils.pp +++ b/rtl/win/sysutils.pp @@ -1046,7 +1046,8 @@ begin if L > 0 then begin SetLength(Buf,L-1); // L includes terminating NULL - L := GetLocaleInfoW(LID, LT, @Buf[1], L); + if l>1 Then + L := GetLocaleInfoW(LID, LT, @Buf[1], L); result:=buf; end else |