paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-11 00:38:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazreport: prevent potential crash by Luiz Americo (issue #0014324)

Browse Source 
git-svn-id: trunk@23231 -
This commit is contained in:
paul 2009-12-22 08:04:36 +00:00
parent b09f9f224a
commit 45513985a2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazreport/source/lr_intrp.pas
View File

@ -295,7 +295,7 @@ procedure DoFuncId; forward;
if buf^[i] > ' ' then Inc(c); if buf^[i] > ' ' then Inc(c);
i := 0; i := 0;
j := 1; j := 1;
while c > 0 do while (c > 0) and (i < MemoFrom.Count) do
begin begin
s1 := MemoFrom[i]; s1 := MemoFrom[i];
j := 1; j := 1;