paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 23:40:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: pbyte for test

Browse Source 
git-svn-id: trunk@63379 -
This commit is contained in:
martin 2020-06-17 13:03:45 +00:00
parent 2e0d5cd263
commit 8b52ad831c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -47,6 +47,7 @@ type
var
BreakDummy: PtrUInt;
PByteDummy: PByte;
p: Pointer;
InterfacedObject, InterfacedObject2: TInterfacedObject;
@ -432,6 +433,7 @@ begin
BreakDummy := ord(gcCharStatArray[1]);
BreakDummy := ord(gcWCharStatArray[1]);
p := nil;
PByteDummy := nil;
SomeFunc1(1,1,1,1);
SomeProc1();
dummy1 := nil;