From 263fc7b6ff21ce37bbfaff36c0f107b587ab23d6 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sat, 18 Sep 2010 13:19:58 +0000
Subject: [PATCH] * fixed memory leak in DrawTest, when running more than one
 test

git-svn-id: trunk@16004 -
---
 packages/graph/tests/drawtest.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/packages/graph/tests/drawtest.pas b/packages/graph/tests/drawtest.pas
index b7d168abc1..0d7aafa374 100644
--- a/packages/graph/tests/drawtest.pas
+++ b/packages/graph/tests/drawtest.pas
@@ -49,6 +49,14 @@ begin
   end;
 end;
 
+procedure FreePixArray;
+var
+  Y: Integer;
+begin
+  for Y := 0 to YRes - 1 do
+    FreeMem(PixArray[Y], XRes * SizeOf(TPixelColor));
+end;
+
 procedure TestFinalResult;
 var
   X, Y: Integer;
@@ -162,6 +170,8 @@ begin
 
   TestFinalResult;
 
+  FreePixArray;
+
   CloseGraph;
   Writeln('Ok');
 end;