* another fix for interfaces

rtl/i386/rttip.inc

@@ -165,7 +165,7 @@ asm
         // Interfaces
 .LDoInterfaceFinal:
         pushl   Data
-        call    Intf_Decr_Ref
+        call    Int_Intf_Decr_Ref
         jmp     .LExitFinalize
         // Variants
 .LDoVariantFinal:
@@ -279,7 +279,7 @@ asm
         // Interfaces
 .LDoInterfaceAddRef:
         pushl   Data
-        call    INTF_INCR_REF
+        call    INT_INTF_INCR_REF
         jmp     .LExitAddRef
         // Variants
 .LDoVariantAddRef:
@@ -393,7 +393,7 @@ asm
         // Interfaces
 .LDoInterfaceDecRef:
         pushl   Data
-        call    INTF_DECR_REF
+        call    INT_INTF_DECR_REF
         jmp     .LExitDecRef
         // Variants
 .LDoVariantDecRef:
@@ -472,7 +472,10 @@ end;
 
 {
   $Log$
-  Revision 1.5  2000-11-06 21:35:59  peter
+  Revision 1.6  2000-11-06 21:52:21  florian
+    * another fix for interfaces
+
+  Revision 1.5  2000/11/06 21:35:59  peter
     * removed some warnings
 
   Revision 1.4  2000/11/04 16:30:35  florian
@@ -486,4 +489,4 @@ end;
 
   Revision 1.2  2000/07/13 11:33:41  michael
   + removed logs
-}
+}

rtl/inc/objpas.inc

@@ -36,38 +36,38 @@ Procedure Finalize (Data,TypeInfo: Pointer);forward;
 
 {$ifndef HASINTF}
     { dummies for make cycle with 1.0.x }
-    procedure intf_decr_ref(var i: pointer);[public,alias: 'FPC_INTF_DECR_REF'];
+    procedure int_intf_decr_ref(var i: pointer);[public,alias: 'FPC_INTF_DECR_REF'];
       begin
       end;
 
-    procedure intf_incr_ref(const i: pointer);[public,alias: 'FPC_INTF_INCR_REF'];
+    procedure int_intf_incr_ref(const i: pointer);[public,alias: 'FPC_INTF_INCR_REF'];
       begin
       end;
 
-    procedure intf_assign(var D: pointer; const S: pointer);[public,alias: 'FPC_INTF_ASSIGN'];
+    procedure int_intf_assign(var D: pointer; const S: pointer);[public,alias: 'FPC_INTF_ASSIGN'];
       begin
       end;
 
-    procedure intf_as(var D: pointer; const S: pointer; const iid: TGUID);[public,alias: 'FPC_INTF_AS'];
+    procedure int_intf_as(var D: pointer; const S: pointer; const iid: TGUID);[public,alias: 'FPC_INTF_AS'];
       begin
       end;
 
 {$else HASINTF}
     { interface helpers }
-    procedure intf_decr_ref(var i: pointer);[public,alias: 'FPC_INTF_DECR_REF'];
+    procedure int_intf_decr_ref(var i: pointer);[public,alias: 'FPC_INTF_DECR_REF'];
       begin
         if assigned(i) then
           IUnknown(i)._Release;
         i:=nil;
       end;
 
-    procedure intf_incr_ref(const i: pointer);[public,alias: 'FPC_INTF_INCR_REF'];
+    procedure int_intf_incr_ref(const i: pointer);[public,alias: 'FPC_INTF_INCR_REF'];
       begin
          if assigned(i) then
            IUnknown(i)._AddRef;
       end;
 
-    procedure intf_assign(var D: pointer; const S: pointer);[public,alias: 'FPC_INTF_ASSIGN'];
+    procedure int_intf_assign(var D: pointer; const S: pointer);[public,alias: 'FPC_INTF_ASSIGN'];
       begin
          if assigned(S) then
            IUnknown(S)._AddRef;
@@ -76,7 +76,7 @@ Procedure Finalize (Data,TypeInfo: Pointer);forward;
          D:=S;
       end;
 
-    procedure intf_as(var D: pointer; const S: pointer; const iid: TGUID);[public,alias: 'FPC_INTF_AS'];
+    procedure int_intf_as(var D: pointer; const S: pointer; const iid: TGUID);[public,alias: 'FPC_INTF_AS'];
       const
         S_OK = 0;
       var
@@ -609,7 +609,10 @@ Procedure Finalize (Data,TypeInfo: Pointer);forward;
 
 {
   $Log$
-  Revision 1.7  2000-11-06 21:35:59  peter
+  Revision 1.8  2000-11-06 21:53:38  florian
+    * another fix for interfaces
+
+  Revision 1.7  2000/11/06 21:35:59  peter
     * removed some warnings
 
   Revision 1.6  2000/11/06 20:34:24  peter