diff options
author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-01-02 19:50:02 +0000 |
---|---|---|
committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-01-02 19:50:02 +0000 |
commit | 0cad1d49fcf4ac9cd9a0244b6c572768d35e2b99 (patch) | |
tree | 8ea94619315fd7e3b0769bbc3c91b589fd847639 | |
parent | 9a4a5c9138e306bd0fea32caa8080c71bcafe1ba (diff) | |
download | fpc-0cad1d49fcf4ac9cd9a0244b6c572768d35e2b99.tar.gz |
* Fix for 10534. tagstatstg now aliased in activex.pp to types.pp
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@9616 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | packages/base/winunits/activex.pp | 16 | ||||
-rw-r--r-- | rtl/objpas/types.pp | 22 |
2 files changed, 13 insertions, 25 deletions
diff --git a/packages/base/winunits/activex.pp b/packages/base/winunits/activex.pp index 65c911cb6e..7c79775dbc 100644 --- a/packages/base/winunits/activex.pp +++ b/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 diff --git a/rtl/objpas/types.pp b/rtl/objpas/types.pp index 8a4989b2ca..de2a1930fe 100644 --- a/rtl/objpas/types.pp +++ b/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; |