From 3e4469937cda78b7fb8d3903e737219800252f63 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 17 Aug 2011 12:01:23 +0000
Subject: [PATCH] * fix Types.UnionRect as proposed by Piotr Karasinski,
 resolves #20006

git-svn-id: trunk@18246 -
---
 rtl/objpas/types.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/types.pp b/rtl/objpas/types.pp
index 77db515987..1afef6875d 100644
--- a/rtl/objpas/types.pp
+++ b/rtl/objpas/types.pp
@@ -386,7 +386,7 @@ begin
   if R2.Bottom>R1.Bottom then
     lRect.Bottom:=R2.Bottom;
 
-  if IsRectEmpty(Rect) then
+  if IsRectEmpty(lRect) then
   begin
     FillChar(Rect,SizeOf(Rect),0);
     UnionRect:=false;