* synchronised with trunk up till r28402

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/hlcgllvm@28403 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 19 insertions, 0 deletions

diff --git a/compiler/symsym.pas b/compiler/symsym.pas
index 6f079bd9b4..1681391ce1 100644
--- a/compiler/symsym.pas
+++ b/compiler/symsym.pas
@@ -444,6 +444,14 @@ interface
           function GetCopy:tmacro;
        end;
 
+       { tPtrDefHashSet }
+
+       tPtrDefHashSet = class(THashSet)
+       public
+         constructor Create;virtual;
+       end;
+       tPtrDefHashSetClass = class of tPtrDefHashSet;
+
     var
        generrorsym : tsym;
 
@@ -461,6 +469,7 @@ interface
        cconstsym: tconstsymclass;
        cenumsym: tenumsymclass;
        csyssym: tsyssymclass;
+       cPtrDefHashSet : tPtrDefHashSetClass = tPtrDefHashSet;
 
     { generate internal static field name based on regular field name }
     function internal_static_field_name(const fieldname: TSymStr): TSymStr;
@@ -2699,4 +2708,14 @@ implementation
         Result:=p;
       end;
 
+
+{****************************************************************************
+                             tPtrDefHashSet
+ ****************************************************************************}
+
+    constructor tPtrDefHashSet.Create;
+      begin
+        inherited Create(64,true,false);
+      end;
+
 end.