paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 23:19:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: test

Browse Source 
git-svn-id: trunk@62039 -
This commit is contained in:
martin 2019-10-11 12:37:47 +00:00
parent 459694b2f8
commit 9db76fad42
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazdebuggers/lazdebuggerfp/test/testwatches.pas
View File

@ -1147,6 +1147,8 @@ begin
t.Add('TMYSTRINGLIST(TMyClass(MyClass1).FMyStringList).FLIST^[0]', weMatch('FString', skRecord) ).IgnTypeName(); t.Add('TMYSTRINGLIST(TMyClass(MyClass1).FMyStringList).FLIST^[0]', weMatch('FString', skRecord) ).IgnTypeName();
t.Add('TMYSTRINGLIST(TMyClass(MyClass2).FMyStringList).FLIST^[0]', weMatch('FString', skRecord) ).IgnTypeName(); t.Add('TMYSTRINGLIST(TMyClass(MyClass2).FMyStringList).FLIST^[0]', weMatch('FString', skRecord) ).IgnTypeName();
t.Add('TSize', 'TSize', weMatch('.', skType)).AddFlag(ehNoTypeInfo); // make sure no deep recorsion...
t.Add('EnVal1', 'EnVal1', weMatch('EnVal1 *:?= *0', skEnumValue)); t.Add('EnVal1', 'EnVal1', weMatch('EnVal1 *:?= *0', skEnumValue));
t.Add('EnVal2', 'EnVal2', weMatch('EnVal2 *:?= *1', skEnumValue)); t.Add('EnVal2', 'EnVal2', weMatch('EnVal2 *:?= *1', skEnumValue));
t.Add('EnVal3', 'EnVal3', weMatch('EnVal3 *:?= *2', skEnumValue)); t.Add('EnVal3', 'EnVal3', weMatch('EnVal3 *:?= *2', skEnumValue));

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

@ -8,6 +8,7 @@
*) *)
program WatchesValuePrg; program WatchesValuePrg;
{$LONGSTRINGS ON} {$LONGSTRINGS ON}
{$modeswitch advancedrecords}
uses sysutils, Classes; uses sysutils, Classes;
@ -208,6 +209,13 @@ type
BitSize: TBitSize; // Must have the same sign as Size BitSize: TBitSize; // Must have the same sign as Size
end; end;
// recursive declaration
TSize = record
cx : Longint; cy : Longint;
public
constructor Create(asz :TSize);
end;
TFunc1 = function(SomeValue, Foo: Integer; Bar: Word; X: Byte): Boolean; TFunc1 = function(SomeValue, Foo: Integer; Bar: Word; X: Byte): Boolean;
TProc1 = procedure(); TProc1 = procedure();
TMeth1 = function(AVal: Integer): Boolean of object; TMeth1 = function(AVal: Integer): Boolean of object;
@ -328,6 +336,8 @@ var
TEST_PREPOCESS(WatchesValuePrgIdent.inc, pre__=gv_ptrlist_, "_OP_=:PPointerList;//", "_O2_=:PPointerList;//" ) TEST_PREPOCESS(WatchesValuePrgIdent.inc, pre__=gv_ptrlist_, "_OP_=:PPointerList;//", "_O2_=:PPointerList;//" )
constructor TSize.Create(asz :TSize);
begin end;
constructor TObjectCreate3Int64.Create; constructor TObjectCreate3Int64.Create;
begin end; begin end;
destructor TObjectCreate3Int64.Destroy; destructor TObjectCreate3Int64.Destroy;