* fix bug #29061, add guids to gmp interfaces

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@32449 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 0 deletions

diff --git a/packages/gmp/src/gmp.pas b/packages/gmp/src/gmp.pas
index 3aa251955d..4eaf0dcb74 100644
--- a/packages/gmp/src/gmp.pas
+++ b/packages/gmp/src/gmp.pas
@@ -125,22 +125,27 @@ type
   // ---- ext types with automatic mem mngmt & cow, ~ fpc string type style -----
 
   IMPBase = interface
+    ['{390336B5-6B78-47E0-BB0B-48F3AF9D5CCC}']
     function refs: longint;
   end;
 
   MPInteger = interface(IMPBase)
+    ['{F6A977E7-B5E6-42BB-981F-E1A7C7EE0D30}']
     function ptr: mpz_ptr;
   end;
 
   MPFloat = interface(IMPBase)
+    ['{73F21043-CC71-425E-9825-1EF0FF4B9B85}']
     function ptr: mpf_ptr;
   end;
 
   MPRational = interface(IMPBase)
+    ['{0ACDDB76-5C1A-48E5-96EF-EA8647680FC1}']
     function ptr: mpq_ptr;
   end;
 
   MPRandState = interface(IMPBase)
+    ['{0E7EDBB9-E009-4A29-8BAC-8B967404B7B7}']
     function ptr: randstate_ptr;
   end;