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

* correction from 13978

Browse Source 
git-svn-id: trunk@13278 -
This commit is contained in:
marco 2009-06-15 08:46:04 +00:00
parent 08491c10fb
commit ef0438ec7e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2940,7 +2940,7 @@ TYPE
Function FindName(szNameBuf: pOleStr; lHashVal: ULONG; OUT ppTInfo: ITypeInfo; OUT rgMemId: MEMBERID; VAR pcFound: USHORT; OUT pBstrLibName: WideString):HResult;StdCall;
{$endif}
{$ifndef Call_as}
Procedure ReleaseTLibAttr(Const pTLibAttr : TLIBATTR); StdCall;
Procedure ReleaseTLibAttr( pTLibAttr : LPTLIBATTR); StdCall;
{$else}
Function LocalReleaseTLibAttr:HResult;StdCall;
{$endif}