paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 17:39:20 +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

3
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;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------