paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 06:59:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix #39548: correctly declare the function result of SysAllocStringLen()

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-01-30 12:11:08 +01:00
parent 9b4033fa80
commit e39f7ec8a0
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

@ -4608,7 +4608,7 @@ type
oleaut32dll = 'oleaut32.dll';
function SysAllocString(psz: pointer): TBStr; stdcall; external oleaut32dll name 'SysAllocString';
function SysAllocStringLen(psz: pointer; len:dword): Integer; stdcall; external oleaut32dll name 'SysAllocStringLen';
function SysAllocStringLen(psz: pointer; len:dword): TBStr; stdcall; external oleaut32dll name 'SysAllocStringLen';
procedure SysFreeString(bstr:pointer); stdcall; external oleaut32dll name 'SysFreeString';
function SysStringLen(bstr:pointer):UINT; stdcall; external oleaut32dll name 'SysStringLen';
function SysStringByteLen(bstr:pointer):UINT; stdcall; external oleaut32dll name 'SysStringByteLen';