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

* Fixed range-check error due to uninitialized variable

Browse Source 
git-svn-id: trunk@54573 -
This commit is contained in:
joost 2017-04-08 14:40:37 +00:00
parent 92ebfa019f
commit 0678543521
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpdebug/fpdbgdwarfdataclasses.pas
View File

@ -2894,6 +2894,7 @@ begin
Result := nil; Result := nil;
l := 0; l := 0;
h := FCompilationUnits.Count - 1; h := FCompilationUnits.Count - 1;
m := h;
while h > l do begin while h > l do begin
p := TDwarfCompilationUnit(FCompilationUnits[m]).DebugFile^.Sections[dsInfo].RawData + AOffs; p := TDwarfCompilationUnit(FCompilationUnits[m]).DebugFile^.Sections[dsInfo].RawData + AOffs;
m := (h + l + 1) div 2; m := (h + l + 1) div 2;