paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 07:59:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: test, fix test code for WatchValuePrg

Browse Source
This commit is contained in:
Martin 2024-05-19 11:49:23 +02:00
parent c33f507472
commit 282e6a369d
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
components/lazdebuggers/lazdebugtestbase/sources.res
View File

Binary file not shown.

16
components/lazdebuggers/lazdebugtestbase/testapps/WatchesValuePrg.pas
View File

@ -1422,12 +1422,20 @@ begin
SetLength(dotdotArrayP1b, 5);
SetLength(dotdotArrayP2a, 6, 5);
SetLength(dotdotArrayP2b, 6, 5);
for i1 := 0 to 4 do
for i2 := 0 to 5 do begin
for i1 := 0 to 4 do begin
dotdotArrayP1a[i1] := @dotdotArray1a[i1];
dotdotArrayP1b[i1] := @dotdotArray1b[i1];
dotdotArrayP2a[i1][i2] := @dotdotArray2a[i1][i2];
dotdotArrayP2b[i1][i2] := @dotdotArray2b[i1][i2];
end;
for i1 := 0 to 5 do
for i2 := 0 to 4 do begin
if dotdotArray2a[i1] = nil then
dotdotArrayP2a[i1] := nil
else
dotdotArrayP2a[i1][i2] := @dotdotArray2a[i1][i2];
if dotdotArray2b[i1] = nil then
dotdotArrayP2b[i1] := nil
else
dotdotArrayP2b[i1][i2] := @dotdotArray2b[i1][i2];
end;
dotdotArrayPPa := @dotdotArray1a;