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

* added check to ensure the memory allocation for DrawnList inside FloodFill hasn't returned nil

Browse Source 
git-svn-id: trunk@40964 -
This commit is contained in:
nickysn 2019-01-21 14:47:48 +00:00
parent f322b45611
commit e6835e8ff7
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/graph/src/inc/fills.inc
View File

@ -435,6 +435,11 @@ var
x1, x2, prevy: smallint; x1, x2, prevy: smallint;
Begin Begin
GetMem(DrawnList,sizeof(PFloodLine)*((ViewHeight div YResDiv) + 1)); GetMem(DrawnList,sizeof(PFloodLine)*((ViewHeight div YResDiv) + 1));
if not assigned(DrawnList) then
begin
_GraphResult := grNoFloodMem;
exit;
end;
FillChar(DrawnList^,sizeof(PFloodLine)*((ViewHeight div YResDiv) + 1),0); FillChar(DrawnList^,sizeof(PFloodLine)*((ViewHeight div YResDiv) + 1),0);
{ init prevy } { init prevy }
prevy := 32767; prevy := 32767;