paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-15 13:40:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* reset lockcount in SafeArrayCreate and SafeArrayCopy, patch by Tomas Stejskal

Browse Source 
-This line, and those below, will be ignored--

M    varutils.inc

git-svn-id: trunk@2503 -
This commit is contained in:
peter 2006-02-10 06:50:23 +00:00
parent 5007ae7197
commit 042afa256c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/varutils.inc
View File

@ -363,6 +363,7 @@ Function SafeArrayCreate(VarType, Dim: SizeInt; const Bounds: TVarArrayBoundArra
Result^.DimCount:=Dim; Result^.DimCount:=Dim;
Result^.Flags:=psaElementFlags[VarType]; Result^.Flags:=psaElementFlags[VarType];
Result^.ElementSize:=psaElementSizes[VarType]; Result^.ElementSize:=psaElementSizes[VarType];
Result^.LockCount := 0;
for i:=0 to Dim-1 do for i:=0 to Dim-1 do
begin begin
Result^.Bounds[i].LowBound:=Bounds[Dim-I-1].LowBound; Result^.Bounds[i].LowBound:=Bounds[Dim-I-1].LowBound;
@ -522,6 +523,7 @@ begin
begin begin
Flags:=psa^.Flags; Flags:=psa^.Flags;
ElementSize:=psa^.ElementSize; ElementSize:=psa^.ElementSize;
LockCount := 0;
DimCount:=psa^.DimCount; DimCount:=psa^.DimCount;
for i:=0 to DimCount-1 do for i:=0 to DimCount-1 do
begin begin