paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 21:09:11 +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 } { we so ugly things with tvararray here }
{$R-} {$RANGECHECKS OFF}
Procedure SetUnlockResult (P : PVarArray; Res : HResult); Procedure SetUnlockResult (P : PVarArray; Res : HResult);
@ -201,6 +201,7 @@ begin
finally finally
VariantClear(Tmp); VariantClear(Tmp);
end; end;
{$RANGECHECKS OFF}
end; end;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
@ -374,7 +375,7 @@ Function SafeArrayCreate(VarType, Dim: SizeInt; const Bounds: TVarArrayBoundArra
Result:=nil; Result:=nil;
end; end;
end; end;
Function SafeArrayAllocDescriptor(DimCount: SizeInt; var psa: PVarArray): HRESULT;stdcall; Function SafeArrayAllocDescriptor(DimCount: SizeInt; var psa: PVarArray): HRESULT;stdcall;
begin begin
@ -392,7 +393,7 @@ Function SafeArrayAllocData(psa: PVarArray): HRESULT;stdcall;
begin begin
try try
With psa^ do With psa^ do
begin begin
Data:=GetMem(SafeArrayElementTotal(psa)*ElementSize); Data:=GetMem(SafeArrayElementTotal(psa)*ElementSize);
fillchar(Data^,SafeArrayElementTotal(psa)*ElementSize,0); fillchar(Data^,SafeArrayElementTotal(psa)*ElementSize,0);
end; end;