paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 14:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@9616 -
This commit is contained in:
marco 2008-01-02 19:50:02 +00:00
parent 4958973566
commit 574827a844
2 changed files with 13 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/base/winunits/activex.pp
View File

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

22
rtl/objpas/types.pp
View File

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