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

* TPropVariant must be packed record, its size should match Variant (16 bytes)

Browse Source 
* LPVERSIONEDSTREAM is a pointer type.

git-svn-id: trunk@17387 -
This commit is contained in:
sergei 2011-04-30 18:09:44 +00:00
parent 786f0a5067
commit e3feef2126
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/winunits-base/src/activex.pp
View File

@ -1686,7 +1686,7 @@ TYPE
end; end;
VERSIONEDSTREAM = tagVersionedStream; VERSIONEDSTREAM = tagVersionedStream;
TVERSIONEDSTREAM = tagVersionedStream; TVERSIONEDSTREAM = tagVersionedStream;
LPVERSIONEDSTREAM = tagVersionedStream; LPVERSIONEDSTREAM = ^tagVersionedStream;
PVERSIONEDSTREAM = ^TagVersionedStream; PVERSIONEDSTREAM = ^TagVersionedStream;
@ -1856,7 +1856,8 @@ TYPE
IPropertyStorage = Interface; IPropertyStorage = Interface;
IEnumSTATPROPSETSTG = interface; IEnumSTATPROPSETSTG = interface;
TPROPVARIANT = record { size of this record must be 16, i.e. match Variant }
TPROPVARIANT = packed record
vt : VARTYPE; vt : VARTYPE;
wReserved1 : PROPVAR_PAD1; wReserved1 : PROPVAR_PAD1;
wReserved2 : PROPVAR_PAD2; wReserved2 : PROPVAR_PAD2;