From 81fd0bb72c03bfdc8ba1f5291afea7f15cc1b739 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 4 May 2005 08:56:03 +0000
Subject: [PATCH] + Removed S_OK declarations, they are in objpash.inc

---
 rtl/inc/objpas.inc | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/rtl/inc/objpas.inc b/rtl/inc/objpas.inc
index 3c1b03e1d3..6d8d638d37 100644
--- a/rtl/inc/objpas.inc
+++ b/rtl/inc/objpas.inc
@@ -93,8 +93,7 @@
       end;
 
     function fpc_intf_as(const S: pointer; const iid: TGUID): pointer;[public,alias: 'FPC_INTF_AS']; {$ifdef hascompilerproc} compilerproc; {$endif}
-      const
-        S_OK = 0;
+
       var
         tmpi: pointer; // _AddRef before _Release
       begin
@@ -110,8 +109,7 @@
 
 
     function fpc_class_as_intf(const S: pointer; const iid: TGUID): pointer;[public,alias: 'FPC_CLASS_AS_INTF']; {$ifdef hascompilerproc} compilerproc; {$endif}
-      const
-        S_OK = 0;
+
       var
         tmpi: pointer; // _AddRef before _Release
       begin
@@ -766,7 +764,10 @@
 
 {
   $Log$
-  Revision 1.49  2005-04-28 17:58:18  florian
+  Revision 1.50  2005-05-04 08:56:03  michael
+  + Removed S_OK declarations, they are in objpash.inc
+
+  Revision 1.49  2005/04/28 17:58:18  florian
     * getinterface fixed
 
   Revision 1.48  2005/04/05 21:05:31  peter