Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* fixed compilation for 64 bit targets

git-svn-id: trunk@3236 -
tom_at_work 19 years ago
parent
6738df45e8
commit
c0348fff89
1 changed files with 1 additions and 1 deletions
Split View Show Diff Stats
  1. 1 1
      rtl/objpas/varutilh.inc

+ 1 - 1
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;