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

FpGdbmiDebugger: tests

Browse Source 
git-svn-id: trunk@45031 -
This commit is contained in:
martin 2014-05-13 20:42:21 +00:00
parent f281e6830c
commit 620840c586
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/lazdebuggers/lazdebuggerfpgdbmi/test/TestApps/TestWatchesUnitSimple.pas
View File

@ -459,9 +459,9 @@ begin
Field_Set1 := [eval2];
Field_Set2 := [];
Field_SString1 := 'stest';
Field_SString1 := 'stest ü1'+#27+'';
Field_SString2 := '';
Field_AString1 := 'atest';
Field_AString1 := 'atest ü1'+#27+'';
Field_AString2 := '';
@ -604,9 +604,9 @@ begin
Local_Set1 := [eval2];
Local_Set2 := [];
Local_SString1 := 'stest';
Local_SString1 := 'stest ü1'+#27+'';
Local_SString2 := '';
Local_AString1 := 'atest';
Local_AString1 := 'atest ü1'+#27+'';
Local_AString2 := '';
@ -837,9 +837,9 @@ begin
SimpleGlob_Set1 := [eval2];
SimpleGlob_Set2 := [];
SimpleGlob_SString1 := 'stest';
SimpleGlob_SString1 := 'stest ü1'+#27+'';
SimpleGlob_SString2 := '';
SimpleGlob_AString1 := 'atest';
SimpleGlob_AString1 := 'atest ü1'+#27+'';
SimpleGlob_AString2 := '';

6
components/lazdebuggers/lazdebuggerfpgdbmi/test/testwatches.pas
View File

@ -791,6 +791,9 @@ begin
FLastAddedExp^.DspFormat := wdfMemDump;
AddFmtDef('%sDynInt1%1:s[1]', [s,s2], Sp2RegEx('^\$?[0-9A-F]+: *((00 00 15 88)|(88 15 00 00)) *$'), skArray, '', [fTpMtch]);
FLastAddedExp^.DspFormat := wdfMemDump;
AddFmtDef('%sDynInt1%1:s[1]', [s,s2], Sp2RegEx('^\$?[0-9A-F]+: *((00 00 15 88)|(88 15 00 00)) +[0-9A-F][0-9A-F]'), skArray, '', [fTpMtch]);
FLastAddedExp^.DspFormat := wdfMemDump;
FLastAddedExp^.RepeatCount := 5;
end;
// 6600 = $19C8 / 6699=$1A2B
@ -798,6 +801,9 @@ begin
FLastAddedExp^.DspFormat := wdfMemDump;
AddFmtDef('%sStatAInt1%1:s[5]', [s,s2], Sp2RegEx('^\$?[0-9A-F]+: *((00 00 19 C9)|(C9 19 00 00)) *$'), skArray, '', [fTpMtch]);
FLastAddedExp^.DspFormat := wdfMemDump;
AddFmtDef('%sStatAInt1%1:s[5]', [s,s2], Sp2RegEx('^\$?[0-9A-F]+: *((00 00 19 C9)|(C9 19 00 00)) +[0-9A-F][0-9A-F]'), skArray, '', [fTpMtch]);
FLastAddedExp^.DspFormat := wdfMemDump;
FLastAddedExp^.RepeatCount := 5;
// Test: typecast dynarray to dynarray
AddFmtDef('TArrayDynInt(%sDynInt1%1:s)', [s,s2], '^[\(L].*?5511, 5512, 5513, 5514, -5511', skArray, '', [fTpMtch]);