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

DBG: fix tests

Browse Source 
git-svn-id: trunk@39489 -
This commit is contained in:
martin 2012-12-09 15:23:06 +00:00
parent 8594de7421
commit 0cc92c4269
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/test/Gdbmi/testwatches.pas
View File

@ -970,10 +970,10 @@ begin
//UpdRes(r, stDwarf3, '''MyAnsi''$', skSimple, 'AnsiString', []);
// accessing len/refcount
r:=AddFmtDef('^longint(ArgTMyAnsiString)[-1]',
'6', skSimple, 'longint', []);
r:=AddFmtDef('^longint(VArgTMyAnsiString)[-1]',
'8', skSimple, 'longint', []);
r:=AddFmtDef('^^longint(ArgTMyAnsiString)[-1]',
'6', skPointer, '.', [fTpMtch]);
r:=AddFmtDef('^^longint(VArgTMyAnsiString)[-1]',
'8', skPointer, '.', [fTpMtch]);
// accessing char
// TODO: only works with dwarf 3