+ Removed S_OK declarations, they are in objpash.inc

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