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

* high(fdata) can be -1 for empty array -> loopcounter signed, patch by

Browse Source 
Bernd Kreuss mantis #39179

git-svn-id: trunk@49584 -
This commit is contained in:
marco 2021-07-08 08:12:49 +00:00
parent 86ac03e07e
commit 76765c64a0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-stl/src/gdeque.pp
View File

@ -213,7 +213,7 @@ end;
procedure TDeque.ClearData;
var
i: SizeUint;
i: SizeInt;
begin
if IsManagedType(T) then
for i := Low(FData) to High(FData) do