From db429f2d482170e68738cd9fafde73e7b7a4ab7e Mon Sep 17 00:00:00 2001
From: ivost <ivost@idefix.freepascal.org>
Date: Fri, 5 Jun 2009 20:23:38 +0000
Subject: [PATCH] * added GUID_NULL constant

git-svn-id: trunk@13236 -
---
 rtl/objpas/sysutils/intfh.inc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/rtl/objpas/sysutils/intfh.inc b/rtl/objpas/sysutils/intfh.inc
index 3dd01a0c87..387298da34 100644
--- a/rtl/objpas/sysutils/intfh.inc
+++ b/rtl/objpas/sysutils/intfh.inc
@@ -20,6 +20,9 @@
     System Utilities For Free Pascal
 }
 
+const
+  GUID_NULL: TGuid = '{00000000-0000-0000-0000-000000000000}';
+
 function Supports(const Instance: IInterface; const IID: TGUID; out Intf): Boolean; overload;
 function Supports(const Instance: TObject; const IID: TGUID; out Intf): Boolean; overload;
 function Supports(const Instance: TObject; const IID: Shortstring; out Intf): Boolean; overload;