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

LCL: cleanup, ReallocMem(p,0) sets p to nil

Browse Source 
git-svn-id: trunk@11109 -
This commit is contained in:
vincents 2007-05-08 17:50:51 +00:00
parent 6aa04ce02b
commit 297a72e01b
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/graphmath.pp
View File

@ -533,11 +533,7 @@ begin
Count := 0;
if Assigned(Points) then
try
ReallocMem(Points, 0);
finally
Points := nil;
end;
end;
SplitRecursive(Bezier);
end;
@ -581,11 +577,7 @@ begin
Count := 0;
if Assigned(Points) then
try
ReallocMem(Points, 0);
finally
Points := nil;
end;
end;
Arc2Bezier(X, Y, Width, Height, Angle1, Angle2, Rotation, B);