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

* fixed compilation for 64 bit targets

Browse Source 
git-svn-id: trunk@3236 -
This commit is contained in:
tom_at_work 2006-04-17 07:40:31 +00:00
parent 6738df45e8
commit c0348fff89
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/varutilh.inc
View File

@ -34,7 +34,7 @@ function SafeArrayCreate(VarType, Dim: dword; const Bounds: TVarArrayBoundArray)
function SafeArrayDestroy(psa: PVarArray): HRESULT; stdcall;
function SafeArrayDestroyData(psa: PVarArray): HRESULT; stdcall;
function SafeArrayDestroyDescriptor(psa: PVarArray): HRESULT; stdcall;
function SafeArrayGetDim(psa: PVarArray): HRESULT; stdcall;
function SafeArrayGetDim(psa: PVarArray): SizeInt; stdcall;
function SafeArrayGetElemsize(psa: PVarArray): LongWord; stdcall;
function SafeArrayGetElement(psa: PVarArray; Indices: PVarArrayCoorArray; Data: Pointer): HRESULT; stdcall;
function SafeArrayGetLBound(psa: PVarArray; Dim: longword; var LBound: longint): HRESULT; stdcall;