paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 13:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more rangecheck fixing

Browse Source 
git-svn-id: trunk@1676 -
This commit is contained in:
florian 2005-11-06 09:21:52 +00:00
parent a636570436
commit 9efae2700b
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/varutils.inc
View File

@ -18,7 +18,7 @@
---------------------------------------------------------------------}
{ we so ugly things with tvararray here }
{$R-}
{$RANGECHECKS OFF}
Procedure SetUnlockResult (P : PVarArray; Res : HResult);
@ -201,6 +201,7 @@ begin
finally
VariantClear(Tmp);
end;
{$RANGECHECKS OFF}
end;
{ ---------------------------------------------------------------------
@ -374,7 +375,7 @@ Function SafeArrayCreate(VarType, Dim: SizeInt; const Bounds: TVarArrayBoundArra
Result:=nil;
end;
end;
Function SafeArrayAllocDescriptor(DimCount: SizeInt; var psa: PVarArray): HRESULT;stdcall;
begin
@ -392,7 +393,7 @@ Function SafeArrayAllocData(psa: PVarArray): HRESULT;stdcall;
begin
try
With psa^ do
begin
begin
Data:=GetMem(SafeArrayElementTotal(psa)*ElementSize);
fillchar(Data^,SafeArrayElementTotal(psa)*ElementSize,0);
end;