From 4bb1d117d680610a0589998f87a67c7e69b23b04 Mon Sep 17 00:00:00 2001
From: chrivers <chrivers@idefix.freepascal.org>
Date: Sun, 15 Oct 2006 19:51:40 +0000
Subject: [PATCH] Use symbolic const E_NOINTERFACE instead of raw value
 $80004002

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

diff --git a/rtl/inc/objpas.inc b/rtl/inc/objpas.inc
index 7c6b4fddf7..016da30089 100644
--- a/rtl/inc/objpas.inc
+++ b/rtl/inc/objpas.inc
@@ -679,7 +679,7 @@
          if getinterface(iid,obj) then
            result:=0
          else
-           result:=longint($80004002);
+           result:=longint(E_NOINTERFACE);
       end;
 
     function TInterfacedObject._AddRef : longint;stdcall;