From c0348fff895e0a23cf8f0bf04d5d6fd64a98df7e Mon Sep 17 00:00:00 2001
From: tom_at_work <tom_at_work@idefix.freepascal.org>
Date: Mon, 17 Apr 2006 07:40:31 +0000
Subject: [PATCH] * fixed compilation for 64 bit targets

git-svn-id: trunk@3236 -
---
 rtl/objpas/varutilh.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/varutilh.inc b/rtl/objpas/varutilh.inc
index 68721a3fe7..4882922acd 100644
--- a/rtl/objpas/varutilh.inc
+++ b/rtl/objpas/varutilh.inc
@@ -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;