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

FpDebug: tests for watches of Function/-ref

Browse Source 
git-svn-id: trunk@61733 -
This commit is contained in:
martin 2019-08-20 18:58:48 +00:00
parent 0ce9055f11
commit 4c83d18f8d
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -951,10 +951,15 @@ begin
//t.CheckResults;
//exit;
t.Add('SomeFunc1', weMatch('^function *\(SOMEVALUE, Foo: LONGINT; Bar: Word; x: Byte\): *BOOLEAN', skFunction) );
t.Add('@SomeFunc1', weMatch('.', skPointer) ); // TODO: the text is based on the function return type
t.Add('SomeFunc1', weMatch('^function *\(SOMEVALUE, Foo: LONGINT; Bar: Word; x: Byte\): *BOOLEAN *AT *\$[0-9A-F]+', skFunction) );
t.Add('SomeProc1', weMatch('^procedure *\(\) *AT *\$[0-9A-F]+', skProcedure) );
t.Add('@SomeFunc1', weMatch('^\^function.*\(\$[0-9A-F]+\)'{' = SomeFunc1'}, skPointer {skFunctionRef}) );
t.Add('@SomeProc1', weMatch('^\^procedure.*\(\$[0-9A-F]+\)'{' = SomeFunc1'}, skPointer {skProcedureRef}) );
AddWatches(t, 'glob const', 'gc', 000, 'A', tlConst);
AddWatches(t, 'glob var', 'gv', 001, 'B');
AddWatches(t, 'glob var (@)^', '(@gv', 001, 'B', tlAny, ')^');
// AddWatches(t, 'glob var @^', '@gv', 001, 'B', tlAny, '^');
AddWatches(t, 'glob MyClass1', 'MyClass1.mc', 002, 'C');
AddWatches(t, 'glob MyBaseClass1', 'MyClass1.mbc', 003, 'D');
AddWatches(t, 'glob MyClass1', 'TMyClass(MyClass2).mc', 004, 'E');