paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 19:43:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix for bug #17325, an inc(i) was missing in aloop.

Browse Source 
git-svn-id: trunk@15941 -
This commit is contained in:
marco 2010-09-03 16:34:04 +00:00
parent eba99a7742
commit 7e51501541
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/variants.pp
View File

@ -2804,7 +2804,10 @@ begin
I:=Low(AVarTypes);
Result:=False;
While Not Result and (I<=High(AVarTypes)) do
Result:=((TVarData(V).vType and varTypeMask)=AVarTypes[I]);
begin
Result:=((TVarData(V).vType and varTypeMask)=AVarTypes[I]);
inc(i);
end;
end;