summaryrefslogtreecommitdiff
path: root/packages/winunits-base
diff options
context:
space:
mode:
authormarco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2>2010-04-09 14:20:57 +0000
committermarco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2>2010-04-09 14:20:57 +0000
commit8fa85be5b6234eba98549a13198daf6f72c65fa5 (patch)
tree53db88a2ca03a33962692b641c3783578a5c2f26 /packages/winunits-base
parentc504cc6e355d9236e6983af4a7fe0f2df8ca82b1 (diff)
downloadfpc-8fa85be5b6234eba98549a13198daf6f72c65fa5.tar.gz
* IPersist method now OUT
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15120 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/winunits-base')
-rw-r--r--packages/winunits-base/src/activex.pp2
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/winunits-base/src/activex.pp b/packages/winunits-base/src/activex.pp
index 891eece887..6daf493bcc 100644
--- a/packages/winunits-base/src/activex.pp
+++ b/packages/winunits-base/src/activex.pp
@@ -2113,7 +2113,7 @@ TYPE
IPersist = Interface (IUnknown)
['{0000010c-0000-0000-C000-000000000046}']
- Function GetClassId(clsid:TClsId):HResult; StdCall;
+ Function GetClassId(out clsid:TClsId):HResult; StdCall;
End;
IPersistStream = Interface(IPersist)