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

compiler: fix typo

Browse Source 
git-svn-id: trunk@16645 -
This commit is contained in:
paul 2010-12-27 03:43:42 +00:00
parent 51a9d3280c
commit e098046608
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pdecsub.pas
View File

@ -1383,7 +1383,7 @@ implementation
begin
found:=false;
for i := 0 to pd.parast.SymList.Count - 1 do
if tparavarsym(pd.parast.SymList[0]).vardef=pd.struct then
if tparavarsym(pd.parast.SymList[i]).vardef=pd.struct then
begin
found:=true;
break;