* Fix for 10534. tagstatstg now aliased in activex.pp to types.pp

git-svn-id: trunk@9616 -

packages/base/winunits/activex.pp

@@ -1125,22 +1125,10 @@ TYPE
 
 
 
-   tagSTATSTG                   = record
-                                    pwcsName      : POleStr;
-                                    dwType        : DWord;
-                                    cbSize        : ULarge_integer;
-                                    mtime         : TFileTime;
-                                    ctime         : TFileTime;
-                                    atime         : TFileTime;
-                                    grfMode       : DWord;
-                                    grfLocksSupported : DWord;
-                                    clsid         : TCLSID;
-                                    grfStateBits  : DWord;
-                                    reserved      : DWord;
-                                    end;
+   tagSTATSTG                   = types.tagSTATSTG;
 
    TStatStg                     = tagSTATSTG;
-   PStatStg                     = ^TStatStg;
+   PStatStg                     = types.PStatStg;
    STATSTG                      = TStatStg;
 
 {    TagRemSNB = Record

rtl/objpas/types.pp

@@ -228,17 +228,17 @@ type
   packed
 {$endif FPC_REQUIRES_PROPER_ALIGNMENT}
   record
-     pwcsName : POleStr;
-     dwType : Longint;
-     cbSize : Largeint;
-     mtime : TFileTime;
-     ctime : TFileTime;
-     atime : TFileTime;
-     grfMode : Longint;
-     grfLocksSupported : Longint;
-     clsid : TCLSID;
-     grfStateBits : Longint;
-     reserved : Longint;
+     pwcsName      : POleStr;
+     dwType        : DWord;
+     cbSize        : Large_uint;
+     mtime         : TFileTime;
+     ctime         : TFileTime;
+     atime         : TFileTime;
+     grfMode       : DWord;
+     grfLocksSupported : DWord;
+     clsid         : TCLSID;
+     grfStateBits  : DWord;
+     reserved      : DWord;
   end;
   TStatStg = tagSTATSTG;
   STATSTG = TStatStg;