mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-28 06:23:56 +02:00
1991 lines
109 KiB
ObjectPascal
1991 lines
109 KiB
ObjectPascal
unit TestWatches;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, fpcunit, testutils, testregistry, RegExpr,
|
|
DbgIntfBaseTypes, DbgIntfDebuggerBase, TestBase, GDBMIDebugger, TestDbgConfig,
|
|
TestDbgControl, TTestDbgExecuteables, TestDbgTestSuites, LazDebuggerIntf,
|
|
LazDebuggerIntfBaseTypes, LCLProc, TestWatchUtils, IdeDebuggerBase;
|
|
|
|
const
|
|
BREAK_LINE_FOOFUNC_NEST = 206;
|
|
BREAK_LINE_FOOFUNC = 230;
|
|
BREAK_LINE_FOOFUNC_ARRAY = 254;
|
|
BREAK_LINE_Class_Meth1 = 497; // WatchesPrgStruct.inc
|
|
RUN_GDB_TEST_ONLY = -1; // -1 run all
|
|
RUN_TEST_ONLY = -1; // -1 run all
|
|
|
|
(* TODO:
|
|
- procedure of object currently is skRecord
|
|
- proc/func under stabs => just happen too match because the function they point too..
|
|
|
|
- TREC vs TNewRec ("type TnewRec = type TRec;")
|
|
for quick eval TRec is fine, but in other modes TNewRec may be needed (requires an extra "whatis" under dwarf)
|
|
|
|
- widestring in gdb 6.7.5
|
|
- FooObject = BarObject (dwarf 3)
|
|
*)
|
|
|
|
|
|
type
|
|
|
|
{ TTestWatches }
|
|
|
|
TTestWatches = class(TTestWatchesBase)
|
|
private
|
|
FWatches: TWatches;
|
|
|
|
|
|
ExpectBreakFooGdb: TWatchExpectationArray; // direct commands to gdb, to check assumptions // only Exp and Mtch
|
|
ExpectBreakSubFoo: TWatchExpectationArray; // Watches, evaluated in SubFoo (nested)
|
|
ExpectBreakFoo: TWatchExpectationArray; // Watches, evaluated in Foo
|
|
ExpectBreakFooArray: TWatchExpectationArray; // Watches, evaluated in Foo_Array
|
|
ExpectBreakClassMeth1: TWatchExpectationArray; // Watches, evaluated TClassTCast2.ClassTCast2Method1;
|
|
|
|
FCurrentExpArray: ^TWatchExpectationArray; // currently added to
|
|
|
|
FDbgOutPut: String;
|
|
FDbgOutPutEnable: Boolean;
|
|
FDoStatIntArray: Boolean;
|
|
|
|
procedure DoDbgOutput(Sender: TObject; const AText: String); override;
|
|
procedure ClearAllTestArrays;
|
|
function HasTestArraysData: Boolean;
|
|
// using FCurrentExpArray
|
|
function Add(AnExpr: string; AMtch: string;
|
|
AKind: TDBGSymbolKind; ATpNm: string; AFlgs: TWatchExpectationFlags): PWatchExpectation;
|
|
function Add(AnExpr: string; AEvalFlags: TWatcheEvaluateFlags; AMtch: string;
|
|
AKind: TDBGSymbolKind; ATpNm: string; AFlgs: TWatchExpectationFlags): PWatchExpectation;
|
|
function AddFmtDef (AnExpr, AMtch: string; AKind: TDBGSymbolKind; ATpNm: string; AFlgs: TWatchExpectationFlags=[]): PWatchExpectation;
|
|
function AddFmtDef (AnExpr: String; AEvalFlags: TWatcheEvaluateFlags; AMtch: string; AKind: TDBGSymbolKind; ATpNm: string; AFlgs: TWatchExpectationFlags=[]): PWatchExpectation;
|
|
function AddStringFmtDef (AnExpr, AMtch, ATpNm: string; AFlgs: TWatchExpectationFlags=[]): PWatchExpectation;
|
|
function AddShortStrFmtDef(AnExpr, AMtch: string; ATpNm: string = 'ShortString'; AFlgs: TWatchExpectationFlags=[]): PWatchExpectation;
|
|
function AddCharFmtDef (AnExpr, AMtch: string; ATpNm: string = 'Char'; AFlgs: TWatchExpectationFlags=[]): PWatchExpectation;
|
|
function AddPointerFmtDef (AnExpr, ATpNm: string; AFlgs: TWatchExpectationFlags=[]): PWatchExpectation;
|
|
function AddPointerFmtDef (AnExpr, AMtch, ATpNm: string; AFlgs: TWatchExpectationFlags=[]): PWatchExpectation;
|
|
function AddPointerFmtDefRaw(AnExpr, AMtch, ATpNm: string; AFlgs: TWatchExpectationFlags=[]): PWatchExpectation;
|
|
|
|
|
|
|
|
procedure AddExpectBreakFooGdb;
|
|
procedure AddExpectBreakFooAll;
|
|
procedure AddExpectBreakFooArray;
|
|
procedure AddExpectBreakFooMixInfo;
|
|
procedure AddExpectBreakClassMeth1;
|
|
//procedure AddExpectBreakSubFoo;
|
|
procedure AddExpectBreakFooAndSubFoo; // check for caching issues
|
|
procedure RunTestWatches(NamePreFix: String;
|
|
TestExeName, ExtraOpts: String;
|
|
UsedUnits: array of TUsesDir
|
|
);
|
|
public
|
|
procedure DebugInteract(dbg: TGDBMIDebugger);
|
|
published
|
|
procedure TestWatches;
|
|
end;
|
|
|
|
implementation
|
|
|
|
var
|
|
ControlTestWatch, ControlTestWatchUnstable, ControlTestWatchGdb, ControlTestWatchAll,
|
|
ControlTestWatchMix, ControlTestWatchMixAll, ControlTestWatchCache: Pointer;
|
|
|
|
const
|
|
RNoPreQuote = '(^|[^''])'; // No open qoute (Either at start, or other char)
|
|
RNoPostQuote = '($|[^''])'; // No close qoute (Either at end, or other char)
|
|
Match_Pointer = '\$[0-9A-F]+';
|
|
M_Int = 'Integer|LongInt';
|
|
|
|
{%region * Classes * }
|
|
// _vptr$TOBJECt on older gdb e.g. mac 6.3.50
|
|
Match_ArgTFoo = '<TFoo> = \{.*(<|vptr\$)TObject>?.+ValueInt = -11';
|
|
Match_ArgTFoo1 = '<TFoo> = \{.*(<|vptr\$)TObject>?.+ValueInt = 31';
|
|
{%ebdregion * Classes * }
|
|
// Todo: Dwarf fails with dereferenced var pointer types
|
|
|
|
function MatchPointer(TypeName: String=''): String;
|
|
begin
|
|
if TypeName = ''
|
|
then Result := '\$[0-9A-F]+'
|
|
else Result := TypeName+'\(\$[0-9A-F]+';
|
|
end;
|
|
|
|
function MatchRecord(TypeName: String; AContent: String = ''): String;
|
|
begin
|
|
Result := 'record '+TypeName+' .+'+AContent;
|
|
end;
|
|
function MatchRecord(TypeName: String; AValInt: integer; AValFoo: String = ''): String;
|
|
begin
|
|
Result := 'record '+TypeName+' .+ valint = '+IntToStr(AValInt);
|
|
If AValFoo <> '' then Result := Result + ',.* valfoo = '+AValFoo;
|
|
end;
|
|
|
|
function MatchClass(TypeName: String; AContent: String = ''): String;
|
|
begin
|
|
Result := '<'+TypeName+'> = \{.*(vptr\$|<TObject>).+'+AContent;
|
|
end;
|
|
|
|
function MatchClassNil(TypeName: String): String;
|
|
begin
|
|
Result := '<'+TypeName+'> = nil';
|
|
end;
|
|
|
|
{ TTestWatches }
|
|
|
|
procedure TTestWatches.ClearAllTestArrays;
|
|
begin
|
|
SetLength(ExpectBreakFooGdb, 0);
|
|
SetLength(ExpectBreakSubFoo, 0);
|
|
SetLength(ExpectBreakFoo, 0);
|
|
SetLength(ExpectBreakFooArray, 0);
|
|
SetLength(ExpectBreakClassMeth1, 0);
|
|
end;
|
|
|
|
function TTestWatches.HasTestArraysData: Boolean;
|
|
begin
|
|
Result := (Length(ExpectBreakFooGdb) > 0) or
|
|
(Length(ExpectBreakSubFoo) > 0) or
|
|
(Length(ExpectBreakFoo) > 0) or
|
|
(Length(ExpectBreakFooArray) >0 ) or
|
|
(Length(ExpectBreakClassMeth1) >0 );
|
|
|
|
end;
|
|
|
|
function TTestWatches.Add(AnExpr: string; AMtch: string;
|
|
AKind: TDBGSymbolKind; ATpNm: string; AFlgs: TWatchExpectationFlags): PWatchExpectation;
|
|
begin
|
|
Result := AddWatchExp(FCurrentExpArray^, AnExpr, AMtch, AKind, ATpNm, AFlgs );
|
|
end;
|
|
|
|
function TTestWatches.Add(AnExpr: string;
|
|
AEvalFlags: TWatcheEvaluateFlags; AMtch: string; AKind: TDBGSymbolKind; ATpNm: string;
|
|
AFlgs: TWatchExpectationFlags): PWatchExpectation;
|
|
begin
|
|
Result := AddWatchExp(FCurrentExpArray^, AnExpr, AEvalFlags, AMtch, AKind, ATpNm, AFlgs );
|
|
end;
|
|
|
|
function TTestWatches.AddFmtDef(AnExpr, AMtch: string; AKind: TDBGSymbolKind; ATpNm: string;
|
|
AFlgs: TWatchExpectationFlags): PWatchExpectation;
|
|
begin
|
|
Result := Add(AnExpr, AMtch, AKind, ATpNm, AFlgs );
|
|
end;
|
|
|
|
function TTestWatches.AddFmtDef(AnExpr: String; AEvalFlags: TWatcheEvaluateFlags; AMtch: string;
|
|
AKind: TDBGSymbolKind; ATpNm: string; AFlgs: TWatchExpectationFlags): PWatchExpectation;
|
|
begin
|
|
Result := Add(AnExpr, AEvalFlags, AMtch, AKind, ATpNm, AFlgs );
|
|
end;
|
|
|
|
function TTestWatches.AddStringFmtDef(AnExpr, AMtch, ATpNm: string;
|
|
AFlgs: TWatchExpectationFlags): PWatchExpectation;
|
|
begin
|
|
// TODO, encoding of special chars
|
|
// String should be skSimple
|
|
// but the IDE only gets that with Dwarf-3
|
|
// might be prefixed, with address
|
|
Result := AddFmtDef(AnExpr, '''' + AMtch + '''$', skPOINTER, ATpNm, AFlgs );
|
|
UpdExpRes(Result, stDwarf3, '''' + AMtch + '''$', skString, ATpNm, AFlgs+[acceptSkSimple]);
|
|
end;
|
|
|
|
function TTestWatches.AddShortStrFmtDef(AnExpr, AMtch: string; ATpNm: string;
|
|
AFlgs: TWatchExpectationFlags): PWatchExpectation;
|
|
begin
|
|
// TODO, encoding of special chars
|
|
// shortstring
|
|
// might be prefixed, with address
|
|
Result := AddFmtDef(AnExpr, '''' + AMtch + '''$', skString, ATpNm, AFlgs+[acceptSkSimple] );
|
|
end;
|
|
|
|
function TTestWatches.AddCharFmtDef(AnExpr, AMtch: string; ATpNm: string;
|
|
AFlgs: TWatchExpectationFlags): PWatchExpectation;
|
|
begin
|
|
// TODO, encoding of special chars
|
|
// might be prefixed, with address
|
|
Result := AddFmtDef(AnExpr, '''' + AMtch + '''$', skChar, ATpNm, AFlgs+[acceptSkSimple] );
|
|
end;
|
|
|
|
function TTestWatches.AddPointerFmtDef(AnExpr, ATpNm: string;
|
|
AFlgs: TWatchExpectationFlags): PWatchExpectation;
|
|
begin
|
|
Result := AddFmtDef(AnExpr, MatchPointer(ATpNm), skPointer, ATpNm, AFlgs );
|
|
end;
|
|
|
|
function TTestWatches.AddPointerFmtDef(AnExpr, AMtch, ATpNm: string;
|
|
AFlgs: TWatchExpectationFlags): PWatchExpectation;
|
|
begin
|
|
Result := AddFmtDef(AnExpr, MatchPointer(AMtch), skPointer, ATpNm, AFlgs );
|
|
end;
|
|
|
|
function TTestWatches.AddPointerFmtDefRaw(AnExpr, AMtch, ATpNm: string;
|
|
AFlgs: TWatchExpectationFlags): PWatchExpectation;
|
|
begin
|
|
Result := AddFmtDef(AnExpr, AMtch, skPointer, ATpNm, AFlgs );
|
|
end;
|
|
|
|
procedure TTestWatches.AddExpectBreakFooGdb;
|
|
begin
|
|
if not TestControlCanTest(ControlTestWatchGdb) then exit;
|
|
FCurrentExpArray := @ExpectBreakFooGdb;
|
|
|
|
Add('ptype ArgTFoo', 'type = \^TFoo = class : PUBLIC TObject', skClass, '', []);
|
|
Add('ptype ArgTFoo^', 'type = TFoo = class : PUBLIC TObject', skClass, '', []);
|
|
|
|
Add('-data-evaluate-expression sizeof(ArgTFoo)', 'value="(4|8)"|(parse|syntax) error in expression', skClass, '', []);
|
|
Add('-data-evaluate-expression sizeof(ArgTFoo^)', 'value="\d\d+"|(parse|syntax) error in expression', skClass, '', []);
|
|
|
|
if RUN_GDB_TEST_ONLY > 0 then begin
|
|
ExpectBreakFooGdb[0] := ExpectBreakFooGdb[abs(RUN_GDB_TEST_ONLY)];
|
|
SetLength(ExpectBreakFooGdb, 1);
|
|
end;
|
|
end;
|
|
|
|
procedure TTestWatches.AddExpectBreakFooAll;
|
|
var
|
|
r: PWatchExpectation;
|
|
begin
|
|
if not TestControlCanTest(ControlTestWatchAll) then exit;
|
|
FCurrentExpArray := @ExpectBreakFoo;
|
|
|
|
{%region * records * }
|
|
// Foo(var XXX: PRecord); DWARF has problems with the implicit pointer for "var"
|
|
|
|
// param to FooFunc
|
|
AddFmtDef('ArgTRec', MatchRecord('TREC', -1, '(\$0|nil)'), skRecord, 'TRec', []);
|
|
AddFmtDef('ArgPRec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('ArgPRec^', MatchRecord('TREC', 1, '.'), skRecord, 'TRec', []);
|
|
AddFmtDef('ArgPPRec', MatchPointer('PPRec'), skPointer, 'PPRec', []);
|
|
AddFmtDef('ArgPPRec^', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('ArgPPRec^^', MatchRecord('TREC', 2, '.'), skRecord, 'TRec', []);
|
|
AddFmtDef('ArgTNewRec', MatchRecord('T(NEW)?REC', 3, '.'), skRecord, 'T(New)?Rec', [fTpMtch]);
|
|
AddFmtDef('ArgTRec.ValInt', '-1', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('ArgPRec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('ArgPPRec^^.ValInt', '2', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('ArgPRec^.ValFoo', MatchClass('TFoo'), skClass, 'TFoo', []);
|
|
|
|
AddFmtDef('ArgTRecSelf', MatchRecord('TRecSelf', 'valint = 100'),skRecord, 'TRecSelf', []);
|
|
AddFmtDef('ArgTRecSelf.ValInt', '100', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('ArgTRecSelf.ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('ArgTRecSelf.ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', []);
|
|
AddFmtDef('ArgTRecSelf.ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
//AddFmtDef('ArgTRecSelf', MatchRecord('TRecSelf', 'valint = 100'),skSimple, 'TRecSelf', []);
|
|
//AddFmtDef('ArgTRecSelf', MatchRecord('TRecSelf', 'valint = 100'),skSimple, 'TRecSelf', []);
|
|
|
|
AddFmtDef('ArgTRecSelfDArray', '.', skSimple, 'TRecSelfDArray', []);
|
|
//ArgTRecSelf
|
|
AddFmtDef('ArgTRecSelfDArray[0]', MatchRecord('TRecSelf', 'valint = 100'),skRecord, 'TRecSelf', []);
|
|
AddFmtDef('ArgTRecSelfDArray[0].ValInt', '100', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('ArgTRecSelfDArray[0].ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('ArgTRecSelfDArray[0].ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', [IgnDwrf3]);
|
|
AddFmtDef('ArgTRecSelfDArray[0].ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
//VArgTRecSelf
|
|
AddFmtDef('ArgTRecSelfDArray[1]', MatchRecord('TRecSelf', 'valint = 102'),skRecord, 'TRecSelf', []);
|
|
AddFmtDef('ArgTRecSelfDArray[1].ValInt', '102', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('ArgTRecSelfDArray[1].ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('ArgTRecSelfDArray[1].ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', [IgnDwrf3]);
|
|
AddFmtDef('ArgTRecSelfDArray[1].ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
|
|
AddFmtDef('ArgTRecSelfS0Array', '.', skSimple, 'TRecSelfS0Array', []);
|
|
//ArgTRecSelf
|
|
AddFmtDef('ArgTRecSelfS0Array[0]', MatchRecord('TRecSelf', 'valint = 100'),skRecord, 'TRecSelf', []);
|
|
AddFmtDef('ArgTRecSelfS0Array[0].ValInt', '100', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('ArgTRecSelfS0Array[0].ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('ArgTRecSelfS0Array[0].ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', [IgnDwrf3]);
|
|
AddFmtDef('ArgTRecSelfS0Array[0].ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
//VArgTRecSelf
|
|
AddFmtDef('ArgTRecSelfS0Array[1]', MatchRecord('TRecSelf', 'valint = 102'),skRecord, 'TRecSelf', []);
|
|
AddFmtDef('ArgTRecSelfS0Array[1].ValInt', '102', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('ArgTRecSelfS0Array[1].ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('ArgTRecSelfS0Array[1].ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', [IgnDwrf3]);
|
|
AddFmtDef('ArgTRecSelfS0Array[1].ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
|
|
AddFmtDef('ArgTRecSelfS3Array', '.', skSimple, 'TRecSelfS3Array', []);
|
|
//ArgTRecSelf
|
|
AddFmtDef('ArgTRecSelfS3Array[3]', MatchRecord('TRecSelf', 'valint = 100'),skRecord, 'TRecSelf', []);
|
|
AddFmtDef('ArgTRecSelfS3Array[3].ValInt', '100', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('ArgTRecSelfS3Array[3].ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('ArgTRecSelfS3Array[3].ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', [IgnDwrf3]);
|
|
AddFmtDef('ArgTRecSelfS3Array[3].ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
//VArgTRecSelf
|
|
AddFmtDef('ArgTRecSelfS3Array[4]', MatchRecord('TRecSelf', 'valint = 102'),skRecord, 'TRecSelf', []);
|
|
AddFmtDef('ArgTRecSelfS3Array[4].ValInt', '102', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('ArgTRecSelfS3Array[4].ValPrec', MatchPointer('PRec'), skPointer, 'PRec', [IgnDwrf3]);
|
|
AddFmtDef('ArgTRecSelfS3Array[4].ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', []);
|
|
AddFmtDef('ArgTRecSelfS3Array[4].ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
|
|
AddFmtDef('ArgTPRecSelfDArray', '.', skSimple, 'TPRecSelfDArray', []);
|
|
//ArgTRecSelf
|
|
AddFmtDef('ArgTPRecSelfDArray[0]^', MatchRecord('TRecSelf', 'valint = 100'),skRecord, 'TRecSelf', [IgnDwrf3]);
|
|
AddFmtDef('ArgTPRecSelfDArray[0]^.ValInt', '100', skSimple, M_Int, [fTpMtch, IgnDwrf3]);
|
|
AddFmtDef('ArgTPRecSelfDArray[0]^.ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('ArgTPRecSelfDArray[0]^.ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', [IgnDwrf3]);
|
|
AddFmtDef('ArgTPRecSelfDArray[0]^.ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
//VArgTRecSelf
|
|
AddFmtDef('ArgTPRecSelfDArray[1]^', MatchRecord('TRecSelf', 'valint = 102'),skRecord, 'TRecSelf', [IgnDwrf3]);
|
|
AddFmtDef('ArgTPRecSelfDArray[1]^.ValInt', '102', skSimple, M_Int, [fTpMtch, IgnDwrf3]);
|
|
AddFmtDef('ArgTPRecSelfDArray[1]^.ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('ArgTPRecSelfDArray[1]^.ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', [IgnDwrf3]);
|
|
AddFmtDef('ArgTPRecSelfDArray[1]^.ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
|
|
|
|
|
|
// VAR param to FooFunc
|
|
r := AddFmtDef('VArgTRec', MatchRecord('TREC', -1, '(\$0|nil)'), skRecord, 'TRec', []);
|
|
r := AddFmtDef('VArgPRec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
r := AddFmtDef('VArgPRec^', MatchRecord('TREC', 1, '.'), skRecord, 'TRec', []);
|
|
UpdResMinFpc(r, stDwarf, 020600); UpdResMinFpc(r, stDwarfSet, 020600);
|
|
r := AddFmtDef('VArgPPRec', MatchPointer('PPRec'), skPointer, 'PPRec', []);
|
|
r := AddFmtDef('VArgPPRec^', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
UpdResMinFpc(r, stDwarf, 020600); UpdResMinFpc(r, stDwarfSet, 020600);
|
|
r := AddFmtDef('VArgPPRec^^', MatchRecord('TREC', 2, '.'), skRecord, 'TRec', []);
|
|
UpdResMinFpc(r, stDwarf, 020600); UpdResMinFpc(r, stDwarfSet, 020600);
|
|
AddFmtDef('VArgTNewRec', MatchRecord('T(NEW)?REC', 3, '.'), skRecord, 'T(New)?Rec', [fTpMtch]);
|
|
AddFmtDef('VArgTRec.ValInt', '-1', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('VArgPRec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('VArgPPRec^^.ValInt', '2', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('VArgPRec^.ValFoo', MatchClass('TFoo'), skClass, 'TFoo', []);
|
|
|
|
AddFmtDef('VArgTRecSelf', MatchRecord('TRecSelf', 'valint = 102'),skRecord, 'TRecSelf', []);
|
|
AddFmtDef('VArgTRecSelf.ValInt', '102', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('VArgTRecSelf.ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('VArgTRecSelf.ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', []);
|
|
AddFmtDef('VArgTRecSelf.ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
|
|
r := AddFmtDef('VArgTRecSelfDArray', '.', skSimple, 'TRecSelfDArray', []);
|
|
UpdResMinFpc(r, stDwarf, 020600); UpdResMinFpc(r, stDwarfSet, 020600);
|
|
//ArgTRecSelf
|
|
r := AddFmtDef('VArgTRecSelfDArray[0]', MatchRecord('TRecSelf', 'valint = 100'),skRecord, 'TRecSelf', []);
|
|
AddFmtDef('VArgTRecSelfDArray[0].ValInt', '100', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('VArgTRecSelfDArray[0].ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('VArgTRecSelfDArray[0].ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', [IgnDwrf3]);
|
|
AddFmtDef('VArgTRecSelfDArray[0].ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
//VArgTRecSelf
|
|
r := AddFmtDef('VArgTRecSelfDArray[1]', MatchRecord('TRecSelf', 'valint = 102'),skRecord, 'TRecSelf', []);
|
|
AddFmtDef('VArgTRecSelfDArray[1].ValInt', '102', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('VArgTRecSelfDArray[1].ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('VArgTRecSelfDArray[1].ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', [IgnDwrf3]);
|
|
AddFmtDef('VArgTRecSelfDArray[1].ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
|
|
AddFmtDef('VArgTRecSelfS0Array', '.', skSimple, 'TRecSelfS0Array', []);
|
|
//ArgTRecSelf
|
|
AddFmtDef('VArgTRecSelfS0Array[0]', MatchRecord('TRecSelf', 'valint = 100'),skRecord, 'TRecSelf', []);
|
|
AddFmtDef('VArgTRecSelfS0Array[0].ValInt', '100', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('VArgTRecSelfS0Array[0].ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('VArgTRecSelfS0Array[0].ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', [IgnDwrf3]);
|
|
AddFmtDef('VArgTRecSelfS0Array[0].ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
//VArgTRecSelf
|
|
AddFmtDef('VArgTRecSelfS0Array[1]', MatchRecord('TRecSelf', 'valint = 102'),skRecord, 'TRecSelf', []);
|
|
AddFmtDef('VArgTRecSelfS0Array[1].ValInt', '102', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('VArgTRecSelfS0Array[1].ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('VArgTRecSelfS0Array[1].ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', [IgnDwrf3]);
|
|
AddFmtDef('VArgTRecSelfS0Array[1].ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
|
|
AddFmtDef('VArgTRecSelfS3Array', '.', skSimple, 'TRecSelfS3Array', []);
|
|
//ArgTRecSelf
|
|
AddFmtDef('VArgTRecSelfS3Array[3]', MatchRecord('TRecSelf', 'valint = 100'),skRecord, 'TRecSelf', []);
|
|
AddFmtDef('VArgTRecSelfS3Array[3].ValInt', '100', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('VArgTRecSelfS3Array[3].ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('VArgTRecSelfS3Array[3].ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', [IgnDwrf3]);
|
|
AddFmtDef('VArgTRecSelfS3Array[3].ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
//VArgTRecSelf
|
|
AddFmtDef('VArgTRecSelfS3Array[4]', MatchRecord('TRecSelf', 'valint = 102'),skRecord, 'TRecSelf', []);
|
|
AddFmtDef('VArgTRecSelfS3Array[4].ValInt', '102', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('VArgTRecSelfS3Array[4].ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('VArgTRecSelfS3Array[4].ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', [IgnDwrf3]);
|
|
AddFmtDef('VArgTRecSelfS3Array[4].ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
|
|
r := AddFmtDef('VArgTPRecSelfDArray', '.', skSimple, 'TPRecSelfDArray', []);
|
|
UpdResMinFpc(r, stDwarf, 020600); UpdResMinFpc(r, stDwarfSet, 020600);
|
|
//ArgTRecSelf
|
|
AddFmtDef('VArgTPRecSelfDArray[0]^', MatchRecord('TRecSelf', 'valint = 100'),skRecord, 'TRecSelf', [IgnDwrf3]);
|
|
AddFmtDef('VArgTPRecSelfDArray[0]^.ValInt', '100', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('VArgTPRecSelfDArray[0]^.ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('VArgTPRecSelfDArray[0]^.ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', [IgnDwrf3]);
|
|
AddFmtDef('VArgTPRecSelfDArray[0]^.ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
//VArgTRecSelf
|
|
AddFmtDef('VArgTPRecSelfDArray[1]^', MatchRecord('TRecSelf', 'valint = 102'),skRecord, 'TRecSelf', [IgnDwrf3]);
|
|
AddFmtDef('VArgTPRecSelfDArray[1]^.ValInt', '102', skSimple, M_Int, [fTpMtch]);
|
|
AddFmtDef('VArgTPRecSelfDArray[1]^.ValPrec', MatchPointer('PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('VArgTPRecSelfDArray[1]^.ValPrec^', MatchRecord('TRec', 1), skRecord, 'TRec', [IgnDwrf3]);
|
|
AddFmtDef('VArgTPRecSelfDArray[1]^.ValPrec^.ValInt', '1', skSimple, M_Int, [fTpMtch]);
|
|
|
|
|
|
// LOCAL var (global type)
|
|
AddFmtDef('VarTRec', MatchRecord('TREC', -1, '(\$0|nil)'), skRecord, 'TRec', []);
|
|
AddFmtDef('VarPRec', MatchPointer('^PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('VarPRec^', MatchRecord('TREC', 1, '.'), skRecord, 'TRec', []);
|
|
AddFmtDef('VarPPRec', MatchPointer('^PPRec'), skPointer, 'PPRec', []);
|
|
AddFmtDef('VarPPRec^', MatchPointer('^PRec'), skPointer, 'PRec', []);
|
|
AddFmtDef('VarPPRec^^', MatchRecord('TREC', 2, '.'), skRecord, 'TRec', []);
|
|
AddFmtDef('VarTNewRec', MatchRecord('T(NEW)?REC', 3, '.'), skRecord, 'T(New)?Rec', [fTpMtch]);
|
|
AddFmtDef('VarTRec.ValInt', '-1', skSimple, M_Int, [fTpMtch]);
|
|
|
|
// LOCAL var (reference (^) to global type)
|
|
AddFmtDef('PVarTRec', MatchPointer('^(\^T|P)Rec'), skPointer, '^(\^T|P)Rec$', [fTpMtch]); // TODO: stabs returns PRec
|
|
AddFmtDef('PVarTRec^', MatchRecord('TREC', -1, '(\$0|nil)'), skRecord, 'TRec', []);
|
|
AddFmtDef('PVarTNewRec', MatchPointer('^\^TNewRec'), skPointer, '\^T(New)?Rec', [fTpMtch]);
|
|
AddFmtDef('PVarTNewRec^', MatchRecord('T(NEW)?REC', 3, '.'), skRecord, 'T(New)?Rec', [fTpMtch]);
|
|
|
|
// LOCAL var (local type)
|
|
AddFmtDef('VarRecA', MatchRecord('', 'val = 1'), skRecord, '', []);
|
|
{%endregion * records * }
|
|
|
|
// @ArgTRec @VArgTRec @ArgTRec^ @VArgTRec^
|
|
|
|
{%region * Classes * }
|
|
|
|
AddFmtDef('ArgTFoo', Match_ArgTFoo, skClass, 'TFoo', []);
|
|
AddFmtDef('@ArgTFoo', '(P|\^T)Foo\('+Match_Pointer, skPointer, '(P|\^T)Foo', [fTpMtch]);
|
|
// Only with brackets...
|
|
AddFmtDef('(@ArgTFoo)^', Match_ArgTFoo, skClass, 'TFoo', []);
|
|
|
|
AddFmtDef('ArgPFoo', 'PFoo\('+Match_Pointer, skPointer, 'PFoo', []);
|
|
AddFmtDef('ArgPFoo^', Match_ArgTFoo1, skClass, 'TFoo', []);
|
|
AddFmtDef('@ArgPFoo', '(P|\^)PFoo\('+Match_Pointer, skPointer, '(P|\^)PFoo', [fTpMtch]);
|
|
|
|
AddFmtDef('ArgPPFoo', 'PPFoo\('+Match_Pointer, skPointer, 'PPFoo', []);
|
|
AddFmtDef('ArgPPFoo^', 'PFoo\('+Match_Pointer, skPointer, 'PFoo', []);
|
|
AddFmtDef('@ArgPPFoo', '\^PPFoo\('+Match_Pointer, skPointer, '^PPFoo', []);
|
|
AddFmtDef('ArgPPFoo^^', Match_ArgTFoo1, skClass, 'TFoo', []);
|
|
|
|
|
|
AddFmtDef('VArgTFoo', Match_ArgTFoo, skClass, 'TFoo', []);
|
|
AddFmtDef('@VArgTFoo', '(P|\^T)Foo\('+Match_Pointer, skPointer, '(P|\^T)Foo', [fTpMtch]);
|
|
AddFmtDef('(@VArgTFoo)^', Match_ArgTFoo, skClass, 'TFoo', []);
|
|
|
|
r := AddFmtDef('VArgPFoo', 'PFoo\('+Match_Pointer, skPointer, 'PFoo', []);
|
|
r := AddFmtDef('VArgPFoo^' , Match_ArgTFoo1, skClass, 'TFoo', []);
|
|
UpdResMinFpc(r, stDwarf, 020600); UpdResMinFpc(r, stDwarfSet, 020600);
|
|
r := AddFmtDef('@VArgPFoo', '(P|\^)PFoo\('+Match_Pointer, skPointer, '(P|\^)PFoo', [fTpMtch]);
|
|
|
|
r := AddFmtDef('VArgPPFoo', 'PPFoo\('+Match_Pointer, skPointer, 'PPFoo', []);
|
|
r := AddFmtDef('VArgPPFoo^', 'PFoo\('+Match_Pointer, skPointer, 'PFoo', []);
|
|
UpdResMinFpc(r, stDwarf, 020600); UpdResMinFpc(r, stDwarfSet, 020600);
|
|
r := AddFmtDef('@VArgPPFoo', '\^PPFoo\('+Match_Pointer, skPointer, '^PPFoo', []);
|
|
r := AddFmtDef('VArgPPFoo^^', Match_ArgTFoo1, skClass, 'TFoo', []);
|
|
UpdResMinFpc(r, stDwarf, 020600); UpdResMinFpc(r, stDwarfSet, 020600);
|
|
|
|
|
|
AddFmtDef('ArgTFoo.ValueInt', '^-11$', skSimple, 'Integer|LongInt', [fTpMtch]);
|
|
AddFmtDef('ArgPFoo^.ValueInt', '^31$', skSimple, 'Integer|LongInt', [fTpMtch]);
|
|
// GDB automatically derefs the pointer
|
|
//AddFmtDef('ArgPFoo.ValueInt', 'error', skSimple, '', []);
|
|
AddFmtDef('ArgPPFoo^^.ValueInt', '^31$', skSimple, 'Integer|LongInt', [fTpMtch]);
|
|
//AddFmtDef('ArgPPFoo.ValueInt', 'error', skSimple, '', []);
|
|
|
|
AddFmtDef('VArgTFoo.ValueInt', '^-11$', skSimple, 'Integer|LongInt', [fTpMtch]);
|
|
AddFmtDef('VArgPFoo^.ValueInt', '^31$', skSimple, 'Integer|LongInt', [fTpMtch]);
|
|
//AddFmtDef('VArgPFoo.ValueInt', 'error', skSimple, '', []);
|
|
AddFmtDef('VArgPPFoo^^.ValueInt', '^31$', skSimple, 'Integer|LongInt', [fTpMtch]);
|
|
//AddFmtDef('VArgPPFoo.ValueInt', 'error', skSimple, '', []);
|
|
|
|
|
|
Add('ArgTFoo', [defMemDump], ':.*?6D 65 6D 20 6F 66 20 54 46 6F 6F', skClass, 'TFoo', []);
|
|
|
|
{%region * Classes * typecasts }
|
|
// typecast does not change class
|
|
AddFmtDef('TFoo(ArgTFoo)',Match_ArgTFoo, skClass, 'TFoo', []);
|
|
AddFmtDef('TFoo(VArgTFoo)',Match_ArgTFoo, skClass, 'TFoo', []);
|
|
// typecast does change class
|
|
AddFmtDef('TObject(ArgTFoo)', '<TObject> = \{.*(<|vptr\$)', skClass, 'TObject', []);
|
|
AddFmtDef('TObject(VArgTFoo)', '<TObject> = \{.*(<|vptr\$)', skClass, 'TObject', []);
|
|
{%endregion * Classes * typecasts}
|
|
|
|
|
|
(*
|
|
|
|
AddFmtDef('ArgTSamePFoo', '', sk, 'TSamePFoo', []);
|
|
AddFmtDef('VArgTSamePFoo', '', sk, 'TSamePFoo', []);
|
|
AddFmtDef('ArgTNewPFoo', '', sk, 'TNewPFoo', []);
|
|
AddFmtDef('VArgTNewPFoo', '', sk, 'TNewPFoo', []);
|
|
|
|
AddFmtDef('ArgTSameFoo', '', sk, 'TSameFoo', []);
|
|
AddFmtDef('VArgTSameFoo', '', sk, 'TSameFoo', []);
|
|
AddFmtDef('ArgTNewFoo', '', sk, 'TNewFoo', []);
|
|
AddFmtDef('VArgTNewFoo', '', sk, 'TNewFoo', []);
|
|
AddFmtDef('ArgPNewFoo', '', sk, 'PNewFoo', []);
|
|
AddFmtDef('VArgPNewFoo', '', sk, 'PNewFoo', []);
|
|
|
|
{ ClassesTyps }
|
|
AddFmtDef('ArgTFooClass', '', sk, 'TFooClass', []);
|
|
AddFmtDef('VArgTFooClass', '', sk, 'TFooClass', []);
|
|
AddFmtDef('ArgPFooClass', '', sk, 'PFooClass', []);
|
|
AddFmtDef('VArgPFooClass', '', sk, 'PFooClass', []);
|
|
AddFmtDef('ArgPPFooClass', '', sk, 'PPFooClass', []);
|
|
AddFmtDef('VArgPPFooClass', '', sk, 'PPFooClass', []);
|
|
AddFmtDef('ArgTNewFooClass', '', sk, 'TNewFooClass', []);
|
|
AddFmtDef('VArgTNewFooClass', '', sk, 'TNewFooClass', []);
|
|
AddFmtDef('ArgPNewFooClass', '', sk, 'PNewFooClass', []);
|
|
AddFmtDef('VArgPNewFooClass', '', sk, 'PNewFooClass', []);
|
|
*)
|
|
|
|
{ Compare Objects }
|
|
// TODO: not working in Dwarf3
|
|
AddFmtDef('ArgTFoo=ArgTFoo', 'True', skSimple, 'bool', []);
|
|
AddFmtDef('not(ArgTFoo=ArgTFoo)', 'False', skSimple, 'bool', []);
|
|
AddFmtDef('VArgTFoo=VArgTFoo', 'True', skSimple, 'bool', []);
|
|
AddFmtDef('ArgTFoo=VArgTFoo', 'True', skSimple, 'bool', []);
|
|
AddFmtDef('ArgTFoo=ArgPFoo', 'False', skSimple, 'bool', []);
|
|
AddFmtDef('ArgTFoo=ArgPFoo^', 'False', skSimple, 'bool', []);
|
|
AddFmtDef('ArgPFoo=ArgPPFoo^', 'True', skSimple, 'bool', []);
|
|
|
|
AddFmtDef('@ArgTFoo=PVarTFoo', 'True', skSimple, 'bool', []);
|
|
AddFmtDef('@VArgTFoo=PVarTFoo', 'False', skSimple, 'bool', []);
|
|
|
|
//AddFmtDef('ArgTFoo<>ArgTFoo', 'False', skSimple, 'bool', []);
|
|
//AddFmtDef('ArgTFoo<>ArgPFoo^', 'True', skSimple, 'bool', []);
|
|
|
|
AddFmtDef('ArgTFoo=0', 'False', skSimple, 'bool', []);
|
|
AddFmtDef('not(ArgTFoo=0)', 'True', skSimple, 'bool', []);
|
|
//AddFmtDef('ArgTFoo<>0', 'True', skSimple, 'bool', []);
|
|
|
|
//AddFmtDef('ArgTFoo=nil', 'False', skSimple, 'bool', []);
|
|
//AddFmtDef('not(ArgTFoo=nil)', 'True', skSimple, 'bool', []);
|
|
//AddFmtDef('ArgTFoo<>nil', 'True', skSimple, 'bool', []);
|
|
|
|
{%region * Classes * typecasts }
|
|
{ gdb below 6.7.50 with stabs may fail }
|
|
r := AddFmtDef('VarOTestTCast2', [defFullTypeInfo],
|
|
MatchClass('TObject'), skClass, 'TObject', []);
|
|
if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 060750) then UpdExpRes(r, stStabs, '.', skClass, '.', [fTpMtch]);
|
|
r := AddFmtDef('VarOTestTCast2', [],
|
|
MatchClass('TObject'), skClass, 'TObject', []);
|
|
if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 060750) then UpdExpRes(r, stStabs, '.', skClass, '.', [fTpMtch]);
|
|
|
|
r := AddFmtDef('TObject(VarOTestTCast2)', [defFullTypeInfo],
|
|
MatchClass('TObject'), skClass, 'TObject', []);
|
|
if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 060750) then UpdExpRes(r, stStabs, '.', skClass, '.', [fTpMtch]);
|
|
r := AddFmtDef('TObject(VarOTestTCast2)', [],
|
|
MatchClass('TObject'), skClass, 'TObject', []);
|
|
if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 060750) then UpdExpRes(r, stStabs, '.', skClass, '.', [fTpMtch]);
|
|
|
|
r := AddFmtDef('TClassTCast(VarOTestTCast2)', [defFullTypeInfo],
|
|
MatchClass('TClassTCast', 'b *='), skClass, 'TClassTCast', []);
|
|
if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 060750) then UpdExpRes(r, stStabs, '.', skClass, '.', [fTpMtch]);
|
|
r := AddFmtDef('TClassTCast(VarOTestTCast2)', [],
|
|
MatchClass('TClassTCast', 'b *='), skClass, 'TClassTCast', []);
|
|
if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 060750) then UpdExpRes(r, stStabs, '.', skClass, '.', [fTpMtch]);
|
|
|
|
|
|
{ UseInstanceClass }
|
|
{ gdb below 6.7.50 with stabs may fail }
|
|
r := AddFmtDef('VarOTestTCast2', [defFullTypeInfo, defClassAutoCast],
|
|
MatchClass('TClassTCast', 'b *='), skClass, 'TClassTCast', []);
|
|
if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 060750) then UpdExpRes(r, stStabs, '.', skClass, '.', [fTpMtch]);
|
|
r := AddFmtDef('VarOTestTCast2', [defClassAutoCast],
|
|
MatchClass('TClassTCast', 'b *='), skClass, 'TClassTCast', []);
|
|
if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 060750) then UpdExpRes(r, stStabs, '.', skClass, '.', [fTpMtch]);
|
|
|
|
r := AddFmtDef('TObject(VarOTestTCast2)', [defFullTypeInfo, defClassAutoCast],
|
|
MatchClass('TClassTCast', 'b *='), skClass, 'TClassTCast', []);
|
|
//if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 060750) then
|
|
UpdExpRes(r, stStabs, '.', skClass, '.', [fTpMtch]);
|
|
r := AddFmtDef('TObject(VarOTestTCast2)', [defClassAutoCast],
|
|
MatchClass('TClassTCast', 'b *='), skClass, 'TClassTCast', []);
|
|
//if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 060750) then
|
|
UpdExpRes(r, stStabs, '.', skClass, '.', [fTpMtch]);
|
|
|
|
r := AddFmtDef('TClassTCast(VarOTestTCast2)', [defFullTypeInfo, defClassAutoCast],
|
|
MatchClass('TClassTCast', 'b *='), skClass, 'TClassTCast', []);
|
|
//if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 060750) then
|
|
UpdExpRes(r, stStabs, '.', skClass, '.', [fTpMtch]);
|
|
r := AddFmtDef('TClassTCast(VarOTestTCast2)', [defClassAutoCast],
|
|
MatchClass('TClassTCast', 'b *='), skClass, 'TClassTCast', []);
|
|
//if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 060750) then
|
|
UpdExpRes(r, stStabs, '.', skClass, '.', [fTpMtch]);
|
|
|
|
// access dyn array in casted object
|
|
|
|
{%endregion * Classes * typecasts}
|
|
r := AddFmtDef('TClassTCastObject(VarOTestTCastObj).l[1]', [], '1144', skSimple, 'Integer|LongInt', [fTpMtch]);
|
|
// if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 060750) then UpdExpRes(r, stStabs, '.', skClass, '.', [fTpMtch]);
|
|
|
|
|
|
// Full type info
|
|
r := AddFmtDef('ArgTFoo', [defFullTypeInfo], Match_ArgTFoo, skClass, 'TFoo', []);
|
|
AddMemberExpect(r, 'ValueInt', 'Integer|LongInt', [fTpMtch], skSimple);
|
|
AddMemberExpect(r, 'a1', 'TFooStatArray', [], skSimple);
|
|
AddMemberExpect(r, 'a2', 'TFooDynArray', [], skSimple);
|
|
AddMemberExpect(r, 'a3', 'array', [fTpMtch], skSimple);
|
|
AddMemberExpect(r, 'x1', '', [fTExpectNotFOund], skSimple);
|
|
|
|
{%endregion * Classes * }
|
|
|
|
{%region * Strings * }
|
|
{ strings }
|
|
// todo: some skPOINTER should be skSimple
|
|
// ArgAnsiString
|
|
r:=AddStringFmtDef('ArgAnsiString', 'Ansi', 'AnsiString', []);
|
|
r:=AddStringFmtDef('VArgAnsiString', 'Ansi 2', 'AnsiString', []);
|
|
r:=AddStringFmtDef('ArgTMyAnsiString', 'MyAnsi', '^(TMy)?AnsiString$', [fTpMtch]);
|
|
r:=AddStringFmtDef('VArgTMyAnsiString', 'MyAnsi 2', '^(TMy)?AnsiString$', [fTpMtch]);
|
|
|
|
r:=AddFmtDef('ArgPMyAnsiString', MatchPointer, skPointer, 'PMyAnsiString', []);
|
|
UpdExpRes(r, stStabs, '^(PMyAnsiString|PPChar)$', [fTpMtch]);
|
|
r:=AddFmtDef('VArgPMyAnsiString', MatchPointer, skPointer, 'PMyAnsiString', []);
|
|
UpdExpRes(r, stStabs, '^(PMyAnsiString|PPChar)$', [fTpMtch]);
|
|
r:=AddStringFmtDef('ArgPMyAnsiString^', 'MyAnsi P', '^(TMy)?AnsiString$', [fTpMtch]);
|
|
r:=AddStringFmtDef('VArgPMyAnsiString^', 'MyAnsi P2', '^(TMy)?AnsiString$', [fTpMtch]);
|
|
UpdResMinFpc(r, stDwarf, 020600); UpdResMinFpc(r, stDwarfSet, 020600);
|
|
|
|
r:=AddFmtDef('ArgPPMyAnsiString', MatchPointer, skPointer, 'PPMyAnsiString', []);
|
|
r:=AddFmtDef('VArgPPMyAnsiString', MatchPointer, skPointer, 'PPMyAnsiString', []);
|
|
r:=AddFmtDef('ArgPPMyAnsiString^', MatchPointer, skPointer, 'PMyAnsiString', []);
|
|
UpdExpRes(r, stStabs, '^(PMyAnsiString|PPChar)$', [fTpMtch]);
|
|
r:=AddFmtDef('VArgPPMyAnsiString^', MatchPointer, skPointer, 'PMyAnsiString', []);
|
|
UpdExpRes(r, stStabs, '^(PMyAnsiString|PPChar)$', [fTpMtch]);
|
|
UpdResMinFpc(r, stDwarf, 020600); UpdResMinFpc(r, stDwarfSet, 020600);
|
|
r:=AddStringFmtDef('ArgPPMyAnsiString^^', 'MyAnsi P', '^(TMy)?AnsiString$', [fTpMtch]);
|
|
r:=AddStringFmtDef('VArgPPMyAnsiString^^', 'MyAnsi P2', '^(TMy)?AnsiString$', [fTpMtch]);
|
|
UpdResMinFpc(r, stDwarf, 020600); UpdResMinFpc(r, stDwarfSet, 020600);
|
|
|
|
|
|
r:=AddStringFmtDef('ArgTNewAnsiString', 'NewAnsi', 'TNewAnsiString', []);
|
|
UpdExpRes(r, stStabs, '(TNew)?AnsiString', [fTpMtch]);
|
|
r:=AddStringFmtDef('VArgTNewAnsiString', 'NewAnsi 2', 'TNewAnsiString', []);
|
|
UpdExpRes(r, stStabs, '(TNew)?AnsiString', [fTpMtch]);
|
|
|
|
r:=AddFmtDef('ArgPNewAnsiString', MatchPointer, skPointer, 'PNewAnsiString', []);
|
|
UpdExpRes(r, stStabs, '(\^|PNew|P)AnsiString|PPChar', [fTpMtch]);
|
|
r:=AddFmtDef('VArgPNewAnsiString', MatchPointer, skPointer, 'PNewAnsiString', []);
|
|
UpdExpRes(r, stStabs, '(\^|PNew|P)AnsiString|PPChar', [fTpMtch]);
|
|
r:=AddStringFmtDef('ArgPNewAnsiString^', 'NewAnsi P', 'TNewAnsiString', []);
|
|
UpdExpRes(r, stStabs, '(TNew)?AnsiString', [fTpMtch]);
|
|
r:=AddStringFmtDef('VArgPNewAnsiString^', 'NewAnsi P2', 'TNewAnsiString', []);
|
|
UpdResMinFpc(r, stDwarf, 020600); UpdResMinFpc(r, stDwarfSet, 020600);
|
|
UpdExpRes(r, stStabs, '(TNew)?AnsiString', [fTpMtch]);
|
|
|
|
|
|
// typecasts
|
|
r:=AddStringFmtDef('AnsiString(ArgTMyAnsiString)', 'MyAnsi', 'AnsiString|\^char', [fTpMtch]);
|
|
UpdExpRes(r, stDwarf3, 'AnsiString', []);
|
|
r:=AddStringFmtDef('AnsiString(VArgTMyAnsiString)', 'MyAnsi 2', 'AnsiString|\^char', [fTpMtch]);
|
|
UpdExpRes(r, stDwarf3, 'AnsiString', []);
|
|
|
|
r:=AddFmtDef('PMyAnsiString(ArgPMyAnsiString)', MatchPointer, skPointer, '^(\^|PMy)AnsiString$', [fTpMtch]);
|
|
UpdExpRes(r, stStabs, '^(PMyAnsiString|PPChar)$', [fTpMtch]);
|
|
r:=AddFmtDef('PMyAnsiString(VArgPMyAnsiString)', MatchPointer, skPointer, '^(\^|PMy)AnsiString$', [fTpMtch]);
|
|
UpdExpRes(r, stStabs, '^(PMyAnsiString|PPChar)$', [fTpMtch]);
|
|
// TODO,, IDE derefs with dwarf3
|
|
r:=AddFmtDef('^AnsiString(ArgPMyAnsiString)', MatchPointer, skPointer, '^(\^AnsiString|\^\^char)', [fTpMtch]);
|
|
UpdExpRes(r, stStabs, '^(\^AnsiString|PPChar)$', [fTpMtch]);
|
|
r:=AddFmtDef('^AnsiString(VArgPMyAnsiString)', MatchPointer, skPointer, '^(\^AnsiString|\^\^char)', [fTpMtch]);
|
|
UpdExpRes(r, stStabs, '^(\^AnsiString|PPChar)$', [fTpMtch]);
|
|
|
|
r:=AddStringFmtDef('AnsiString(ArgPMyAnsiString^)', 'MyAnsi P', '^((TMy)?AnsiString|\^char)$', [fTpMtch]);
|
|
r:=AddStringFmtDef('AnsiString(VArgPMyAnsiString^)', 'MyAnsi P2', '^((TMy)?AnsiString|\^char)$', [fTpMtch]);
|
|
UpdResMinFpc(r, stDwarf, 020600); UpdResMinFpc(r, stDwarfSet, 020600); // ^char => gdb 6.7.5 with dwarf
|
|
r:=AddStringFmtDef('PMyAnsiString(ArgPMyAnsiString)^', 'MyAnsi P', '^(TMy)?AnsiString$', [fTpMtch]);
|
|
r:=AddStringFmtDef('PMyAnsiString(VArgPMyAnsiString)^', 'MyAnsi P2', '^(TMy)?AnsiString$', [fTpMtch]);
|
|
UpdResMinFpc(r, stDwarf, 020600); UpdResMinFpc(r, stDwarfSet, 020600);
|
|
|
|
|
|
r:=AddFmtDef('PChar(ArgTMyAnsiString)',
|
|
'''MyAnsi''$', skPOINTER, '(\^|p)char', [fTpMtch]);
|
|
UpdExpRes(r, stStabs, '''MyAnsi''$', skPOINTER, 'pchar|AnsiString', [fTpMtch]);
|
|
//UpdExpRes(r, stDwarf3, '''MyAnsi''$', skSimple, 'AnsiString', []);
|
|
|
|
// accessing len/refcount
|
|
r:=AddFmtDef('^^longint(ArgTMyAnsiString)[-1]',
|
|
'6', skPointer, '.', [fTpMtch]);
|
|
r:=AddFmtDef('^^longint(VArgTMyAnsiString)[-1]',
|
|
'8', skPointer, '.', [fTpMtch]);
|
|
|
|
// accessing char
|
|
// TODO: only works with dwarf 3
|
|
r:=AddFmtDef('ArgTMyAnsiString[1]', '.', skChar, 'char', [acceptSkSimple]);
|
|
UpdExpRes(r, stDwarf3, '''M''$', skChar, 'char', [acceptSkSimple]);
|
|
r:=AddFmtDef('VArgTMyAnsiString[1]', '.', skChar, 'char', [acceptSkSimple]);
|
|
UpdExpRes(r, stDwarf3, '''M''$', skChar, 'char', [acceptSkSimple]);
|
|
r:=AddFmtDef('ArgPMyAnsiString^[1]', '.', skChar, 'char', [acceptSkSimple]);
|
|
UpdExpRes(r, stDwarf3, '''M''$', skChar, 'char', [acceptSkSimple]);
|
|
r:=AddFmtDef('VArgPMyAnsiString^[1]', '.', skChar, 'char', [acceptSkSimple]);
|
|
UpdResMinFpc(r, stDwarf, 020600); UpdResMinFpc(r, stDwarfSet, 020600);
|
|
UpdExpRes(r, stDwarf3, '''M''$', skChar, 'char', [acceptSkSimple]);
|
|
r:=AddFmtDef('AnsiString(ArgTMyAnsiString)[1]', '.', skChar, 'char', [acceptSkSimple]);
|
|
UpdExpRes(r, stDwarf3, '''M''$', skChar, 'char', [acceptSkSimple]);
|
|
r:=AddFmtDef('AnsiString(VArgTMyAnsiString)[1]', '.', skChar, 'char', [acceptSkSimple]);
|
|
UpdExpRes(r, stDwarf3, '''M''$', skChar, 'char', [acceptSkSimple]);
|
|
|
|
// accessing char, after typecast
|
|
r:=AddFmtDef('AnsiString(ArgTMyAnsiString)[1]', '.', skChar, 'char', [acceptSkSimple]);
|
|
UpdExpRes(r, stDwarf3, '''M''$', skChar, 'char', [acceptSkSimple]);
|
|
|
|
|
|
// string in array
|
|
r:=AddStringFmtDef('ArgTMyAnsiStringDArray[0]', 'DArray1 Str0', 'AnsiString', []);
|
|
r:=AddStringFmtDef('ArgTMyAnsiStringDArray[1]', 'DArray1 Str1', 'AnsiString', []);
|
|
r:=AddStringFmtDef('VArgTMyAnsiStringDArray[0]', 'DArray2 Str0', 'AnsiString', []);
|
|
if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 070000) then UpdExpRes(r, stDwarf2All, '^(\^Char|AnsiString)$', [fTpMtch]);
|
|
r:=AddStringFmtDef('VArgTMyAnsiStringDArray[1]', 'DArray2 Str1', 'AnsiString', []);
|
|
if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 070000) then UpdExpRes(r, stDwarf2All, '^(\^Char|AnsiString)$', [fTpMtch]);
|
|
|
|
|
|
r:=AddCharFmtDef('ArgTMyAnsiStringDArray[0][1]', 'D', 'char', [IgnDwrf2, IgnStabs]);
|
|
r:=AddCharFmtDef('ArgTMyAnsiStringDArray[0][12]', '0', 'char', [IgnDwrf2, IgnStabs]);
|
|
r:=AddCharFmtDef('ArgTMyAnsiStringDArray[1][1]', 'D', 'char', [IgnDwrf2, IgnStabs]);
|
|
r:=AddCharFmtDef('ArgTMyAnsiStringDArray[1][12]', '1', 'char', [IgnDwrf2, IgnStabs]);
|
|
|
|
r:=AddCharFmtDef('VArgTMyAnsiStringDArray[0][1]', 'D', 'char', [IgnDwrf2, IgnStabs]);
|
|
r:=AddCharFmtDef('VArgTMyAnsiStringDArray[0][12]', '0', 'char', [IgnDwrf2, IgnStabs]);
|
|
r:=AddCharFmtDef('VArgTMyAnsiStringDArray[1][1]', 'D', 'char', [IgnDwrf2, IgnStabs]);
|
|
r:=AddCharFmtDef('VArgTMyAnsiStringDArray[1][12]', '1', 'char', [IgnDwrf2, IgnStabs]);
|
|
|
|
r:=AddStringFmtDef('ArgTMyAnsiStringSArray[3]', 'SArray1 Str3', 'AnsiString', []);
|
|
r:=AddStringFmtDef('ArgTMyAnsiStringSArray[4]', 'SArray1 Str4', 'AnsiString', []);
|
|
r:=AddStringFmtDef('VArgTMyAnsiStringSArray[3]', 'SArray2 Str3', 'AnsiString', []);
|
|
r:=AddStringFmtDef('VArgTMyAnsiStringSArray[4]', 'SArray2 Str4', 'AnsiString', []);
|
|
|
|
r:=AddCharFmtDef('ArgTMyAnsiStringSArray[3][1]', 'S', 'char', [IgnDataDw, IgnDataSt]);
|
|
r:=AddCharFmtDef('ArgTMyAnsiStringSArray[3][12]', '0', 'char', [IgnDataDw, IgnDataSt]);
|
|
r:=AddCharFmtDef('ArgTMyAnsiStringSArray[4][1]', 'S', 'char', [IgnDataDw, IgnDataSt]);
|
|
r:=AddCharFmtDef('ArgTMyAnsiStringSArray[4][12]', '1', 'char', [IgnDataDw, IgnDataSt]);
|
|
|
|
// string in array // no typename for array
|
|
r:=AddStringFmtDef('GlobAMyAnsiStringDArray[0]', 'ADArray1 Str0', 'AnsiString', []);
|
|
r:=AddStringFmtDef('GlobAMyAnsiStringDArray[1]', 'ADArray1 Str1', 'AnsiString', []);
|
|
|
|
r:=AddCharFmtDef('GlobAMyAnsiStringDArray[0][1]', 'A', 'char', [IgnDwrf2, IgnStabs]);
|
|
r:=AddCharFmtDef('GlobAMyAnsiStringDArray[0][13]', '0', 'char', [IgnDwrf2, IgnStabs]);
|
|
r:=AddCharFmtDef('GlobAMyAnsiStringDArray[1][1]', 'A', 'char', [IgnDwrf2, IgnStabs]);
|
|
r:=AddCharFmtDef('GlobAMyAnsiStringDArray[1][13]', '1', 'char', [IgnDwrf2, IgnStabs]);
|
|
|
|
// PAnsiString in array
|
|
r:=AddPointerFmtDefRaw('ArgTMyPAnsiStringDArray[0]', MatchPointer(), '^(\^|P)(AnsiString|PChar)$', [fTpMtch]);
|
|
r:=AddPointerFmtDefRaw('ArgTMyPAnsiStringDArray[1]', MatchPointer(), '^(\^|P)(AnsiString|PChar)$', [fTpMtch]);
|
|
r:=AddStringFmtDef('ArgTMyPAnsiStringDArray[0]^', 'DArray1 Str0', 'AnsiString', []);
|
|
r:=AddStringFmtDef('ArgTMyPAnsiStringDArray[1]^', 'DArray1 Str1', 'AnsiString', []);
|
|
r:=AddStringFmtDef('VArgTMyPAnsiStringDArray[0]^', 'DArray2 Str0', 'AnsiString', []);
|
|
r:=AddStringFmtDef('VArgTMyPAnsiStringDArray[1]^', 'DArray2 Str1', 'AnsiString', []);
|
|
|
|
|
|
r:=AddCharFmtDef('ArgTMyPAnsiStringDArray[0]^[1]', 'D' , 'char', [IgnDwrf2, IgnStabs]);
|
|
r:=AddCharFmtDef('ArgTMyPAnsiStringDArray[0]^[12]', '0' , 'char', [IgnDwrf2, IgnStabs]);
|
|
r:=AddCharFmtDef('ArgTMyPAnsiStringDArray[1]^[1]', 'D' , 'char', [IgnDwrf2, IgnStabs]);
|
|
r:=AddCharFmtDef('ArgTMyPAnsiStringDArray[1]^[12]', '1' , 'char', [IgnDwrf2, IgnStabs]);
|
|
|
|
r:=AddCharFmtDef('VArgTMyPAnsiStringDArray[0]^[1]', 'D' , 'char', [IgnDwrf2, IgnStabs]);
|
|
r:=AddCharFmtDef('VArgTMyPAnsiStringDArray[0]^[12]', '0' , 'char', [IgnDwrf2, IgnStabs]);
|
|
r:=AddCharFmtDef('VArgTMyPAnsiStringDArray[1]^[1]', 'D' , 'char', [IgnDwrf2, IgnStabs]);
|
|
r:=AddCharFmtDef('VArgTMyPAnsiStringDArray[1]^[12]', '1' , 'char', [IgnDwrf2, IgnStabs]);
|
|
|
|
r:=AddStringFmtDef('ArgTMyPAnsiStringSArray[3]^', 'SArray1 Str3', 'AnsiString', []);
|
|
r:=AddStringFmtDef('ArgTMyPAnsiStringSArray[4]^', 'SArray1 Str4', 'AnsiString', []);
|
|
r:=AddStringFmtDef('VArgTMyPAnsiStringSArray[3]^', 'SArray2 Str3', 'AnsiString', []);
|
|
r:=AddStringFmtDef('VArgTMyPAnsiStringSArray[4]^', 'SArray2 Str4', 'AnsiString', []);
|
|
|
|
r:=AddCharFmtDef('ArgTMyPAnsiStringSArray[3]^[1]', 'S', 'char', [IgnDataDw, IgnDataSt]);
|
|
r:=AddCharFmtDef('ArgTMyPAnsiStringSArray[3]^[12]', '0', 'char', [IgnDataDw, IgnDataSt]);
|
|
r:=AddCharFmtDef('ArgTMyPAnsiStringSArray[4]^[1]', 'S', 'char', [IgnDataDw, IgnDataSt]);
|
|
r:=AddCharFmtDef('ArgTMyPAnsiStringSArray[4]^[12]', '1', 'char', [IgnDataDw, IgnDataSt]);
|
|
|
|
|
|
// string in obj
|
|
r:=AddStringFmtDef('ArgTStringHolderObj.FTMyAnsiString', 'Obj1 MyAnsi', 'AnsiString', []);
|
|
r:=AddStringFmtDef('VArgTStringHolderObj.FTMyAnsiString', 'Obj2 MyAnsi', 'AnsiString', []);
|
|
|
|
r:=AddFmtDef('ArgTStringHolderObj.FTMyAnsiString[1]', '.$', skChar, 'char', [acceptSkSimple]);
|
|
UpdExpRes(r, stDwarf3, '''O''$', skChar, 'char', [acceptSkSimple]);
|
|
r:=AddFmtDef('VArgTStringHolderObj.FTMyAnsiString[1]', '.$', skChar, 'char', [acceptSkSimple]);
|
|
UpdExpRes(r, stDwarf3, '''O''$', skChar, 'char', [acceptSkSimple]);
|
|
|
|
// string in rec
|
|
r:=AddStringFmtDef('ArgTStringHolderRec.FTMyAnsiString', 'Rec1 MyAnsi', 'AnsiString', [fTstSkipDwarf3]);
|
|
r:=AddStringFmtDef('VArgTStringHolderRec.FTMyAnsiString', 'Rec2 MyAnsi', 'AnsiString', [fTstSkipDwarf3]);
|
|
|
|
r:=AddFmtDef('ArgTStringHolderRec.FTMyAnsiString[1]', '.$', skChar, 'char', [fTstSkipDwarf3, acceptSkSimple]);
|
|
UpdExpRes(r, stDwarf3, '''R''$', skChar, 'char', [fTstSkipDwarf3, acceptSkSimple]);
|
|
r:=AddFmtDef('VArgTStringHolderRec.FTMyAnsiString[1]', '.$', skChar, 'char', [fTstSkipDwarf3, acceptSkSimple]);
|
|
UpdExpRes(r, stDwarf3, '''R''$', skChar, 'char', [fTstSkipDwarf3, acceptSkSimple]);
|
|
|
|
|
|
//r:=AddFmtDef('ArgTNewAnsiString', '''NewAnsi''$', skPOINTER, '(TNew)?AnsiString', []);
|
|
// UpdExpRes(r, stDwarf3, '''NewAnsi''$', skSimple, '(TNew)?AnsiString', [fTpMtch]);
|
|
//r:=AddFmtDef('VArgTNewAnsiString', '''NewAnsi 2''$', skPOINTER, '(TNew)?AnsiString', []);
|
|
// UpdExpRes(r, stDwarf3, '''NewAnsi 2''$', skSimple, '(TNew)?AnsiString', [fTpMtch]);
|
|
//r:=AddFmtDef('ArgPNewAnsiString', MatchPointer, skPointer, '(\^|PNew|P)AnsiString', []);
|
|
//r:=AddFmtDef('VArgPNewAnsiString', MatchPointer, skPointer, '(\^|PNew|P)AnsiString', []);
|
|
//r:=AddFmtDef('ArgPNewAnsiString^', '''NewAnsi P''', skPOINTER, '(TNew)?AnsiString', []);
|
|
// UpdExpRes(r, stDwarf3, '''NewAnsi''$', skSimple, '(TNew)?AnsiString', [fTpMtch]);
|
|
//r:=AddFmtDef('VArgPNewAnsiString^', '''NewAnsi P2''', skPOINTER, '(TNew)?AnsiString', []);
|
|
// UpdExpRes(r, stDwarf3, '''NewAnsi 2''$', skSimple, '(TNew)?AnsiString', [fTpMtch]);
|
|
|
|
|
|
|
|
AddFmtDef('ArgTMyShortString', '''short''$', skString, '^(TMy)?ShortString$', [fTpMtch, acceptSkSimple]);
|
|
AddFmtDef('VArgTMyShortString', '''short''$', skString, '^(TMy)?ShortString$', [fTpMtch, acceptSkSimple]);
|
|
AddFmtDef('ArgPMyShortString', Match_Pointer, skPointer, 'P(My)?ShortString', [fTpMtch]);
|
|
AddFmtDef('VArgPMyShortString', Match_Pointer, skPointer, 'P(My)?ShortString', [fTpMtch]);
|
|
AddFmtDef('ArgPMyShortString^', '''short''$', skString, '^(TMy)?ShortString$', [fTpMtch, acceptSkSimple]);
|
|
r := AddFmtDef('VArgPMyShortString^', '''short''$', skString, '^(TMy)?ShortString$', [fTpMtch, acceptSkSimple]);
|
|
UpdResMinFpc(r, stDwarf, 020600); UpdResMinFpc(r, stDwarfSet, 020600);
|
|
|
|
// string in array
|
|
r:=AddShortStrFmtDef('ArgTMyShortStringDArray[0]', 'DArray1 Short0', 'ShortString', []);
|
|
r:=AddShortStrFmtDef('ArgTMyShortStringDArray[1]', 'DArray1 Short1', 'ShortString', []);
|
|
r:=AddShortStrFmtDef('VArgTMyShortStringDArray[0]', 'DArray2 Short0', 'ShortString', []);
|
|
r:=AddShortStrFmtDef('VArgTMyShortStringDArray[1]', 'DArray2 Short1', 'ShortString', []);
|
|
|
|
|
|
r:=AddCharFmtDef('ArgTMyShortStringDArray[0][1]', 'D', 'char', [IgnDwrf2]);
|
|
r:=AddCharFmtDef('ArgTMyShortStringDArray[0][14]', '0', 'char', [IgnDwrf2]);
|
|
r:=AddCharFmtDef('ArgTMyShortStringDArray[1][1]', 'D', 'char', [IgnDwrf2]);
|
|
r:=AddCharFmtDef('ArgTMyShortStringDArray[1][14]', '1', 'char', [IgnDwrf2]);
|
|
|
|
r:=AddCharFmtDef('VArgTMyShortStringDArray[0][1]', 'D', 'char', [IgnDwrf2]);
|
|
r:=AddCharFmtDef('VArgTMyShortStringDArray[0][14]', '0', 'char', [IgnDwrf2]);
|
|
r:=AddCharFmtDef('VArgTMyShortStringDArray[1][1]', 'D', 'char', [IgnDwrf2]);
|
|
r:=AddCharFmtDef('VArgTMyShortStringDArray[1][14]', '1', 'char', [IgnDwrf2]);
|
|
|
|
r:=AddShortStrFmtDef('ArgTMyShortStringSArray[3]', 'SArray1 Short3', 'ShortString', []);
|
|
r:=AddShortStrFmtDef('ArgTMyShortStringSArray[4]', 'SArray1 Short4', 'ShortString', []);
|
|
r:=AddShortStrFmtDef('VArgTMyShortStringSArray[3]', 'SArray2 Short3', 'ShortString', []);
|
|
r:=AddShortStrFmtDef('VArgTMyShortStringSArray[4]', 'SArray2 Short4', 'ShortString', []);
|
|
|
|
r:=AddCharFmtDef('ArgTMyShortStringSArray[3][1]', 'S', 'char', [IgnDwrf2]);
|
|
r:=AddCharFmtDef('ArgTMyShortStringSArray[3][14]', '3', 'char', [IgnDwrf2]);
|
|
r:=AddCharFmtDef('ArgTMyShortStringSArray[4][1]', 'S', 'char', [IgnDwrf2]);
|
|
r:=AddCharFmtDef('ArgTMyShortStringSArray[4][14]', '4', 'char', [IgnDwrf2]);
|
|
|
|
// string in obj
|
|
r:=AddFmtDef('ArgTStringHolderObj.FTMyShortString', '''Obj1 Short''$', skString, '^(TMy)?ShortString$', [fTpMtch, IgnDwrf3, acceptSkSimple]);
|
|
r:=AddFmtDef('VArgTStringHolderObj.FTMyShortString', '''Obj2 Short''$', skString, '^(TMy)?ShortString$', [fTpMtch, IgnDwrf3, acceptSkSimple]);
|
|
|
|
// string in rec
|
|
r:=AddFmtDef('ArgTStringHolderRec.FTMyShortString', '''Rec1 Short''$', skString, '^(TMy)?ShortString$', [fTpMtch, IgnDwrf3, acceptSkSimple]);
|
|
r:=AddFmtDef('VArgTStringHolderRec.FTMyShortString', '''Rec2 Short''$', skString, '^(TMy)?ShortString$', [fTpMtch, IgnDwrf3, acceptSkSimple]);
|
|
|
|
|
|
(*
|
|
AddFmtDef('ArgPPMyShortString', '', sk, 'PPMyShortString', []);
|
|
AddFmtDef('VArgPPMyShortString', '', sk, 'PPMyShortString', []);
|
|
AddFmtDef('ArgTNewhortString', '', sk, 'TNewhortString', []);
|
|
AddFmtDef('VArgTNewhortString', '', sk, 'TNewhortString', []);
|
|
AddFmtDef('ArgPNewhortString', '', sk, 'PNewhortString', []);
|
|
AddFmtDef('VArgPNewhortString', '', sk, 'PNewhortString', []);
|
|
*)
|
|
|
|
// gdb 6.7.5 does not show the text
|
|
AddFmtDef('ArgTMyWideString', '(''wide''$)|(widestring\(\$.*\))', skPointer, '^(TMy)?WideString$', [fTpMtch]);
|
|
AddFmtDef('VArgTMyWideString', '(''wide''$)|(widestring\(\$.*\))', skPointer, '^(TMy)?WideString$', [fTpMtch]);
|
|
(*
|
|
AddFmtDef('ArgPMyWideString', '', sk, 'PMyWideString', []);
|
|
AddFmtDef('VArgPMyWideString', '', sk, 'PMyWideString', []);
|
|
AddFmtDef('ArgPPMyWideString', '', sk, 'PPMyWideString', []);
|
|
AddFmtDef('VArgPPMyWideString', '', sk, 'PPMyWideString', []);
|
|
|
|
AddFmtDef('ArgTNewWideString', '', sk, 'TNewWideString', []);
|
|
AddFmtDef('VArgTNewWideString', '', sk, 'TNewWideString', []);
|
|
AddFmtDef('ArgPNewWideString', '', sk, 'PNewWideString', []);
|
|
AddFmtDef('VArgPNewWideString', '', sk, 'PNewWideString', []);
|
|
|
|
AddFmtDef('ArgTMyString10', '', sk, 'TMyString10', []);
|
|
AddFmtDef('VArgTMyString10', '', sk, 'TMyString10', []);
|
|
AddFmtDef('ArgPMyString10', '', sk, 'PMyString10', []);
|
|
AddFmtDef('VArgPMyString10', '', sk, 'PMyString10', []);
|
|
AddFmtDef('ArgPPMyString10', '', sk, 'PPMyString10', []);
|
|
AddFmtDef('VArgPPMyString10', '', sk, 'PPMyString10', []);
|
|
*)
|
|
|
|
|
|
Add('ArgTMyAnsiString', [defMemDump], ': 4d 79 41 6e 73 69 00', skPOINTER, '^(TMy)?AnsiString$', [fTpMtch]);
|
|
|
|
// Utf8
|
|
// a single ', must appear double ''
|
|
// reg ex needs \\ for \
|
|
r:=AddStringFmtDef ('ConstUtf8TextAnsi', 'a üü1'''' \\\\t 2 \\t 3''#\$?0*9''4''#(13|\$0*D)''5\\n6', 'AnsiString', []);
|
|
r:=AddShortStrFmtDef('ConstUtf8TextShort', 'a üü1'''' \\\\t 2 \\t 3''#\$?0*9''4''#(13|\$0*D)''5\\n6', 'ShortString', []);
|
|
r:=AddShortStrFmtDef('ConstUtf8TextShortStr', 'a üü1'''' \\\\t 2 \\t 3''#\$?0*9''4''#(13|\$0*D)''5\\n6', 'ShortString', []);
|
|
r:=AddStringFmtDef ('VarUtf8TextAnsi', 'a üü1'''' \\\\t 2 \\t 3''#\$?0*9''4''#(13|\$0*D)''5\\n6', 'AnsiString', []);
|
|
r:=AddShortStrFmtDef('VarUtf8TextShort', 'a üü1'''' \\\\t 2 \\t 3''#\$?0*9''4''#(13|\$0*D)''5\\n6', 'ShortString', []);
|
|
r:=AddShortStrFmtDef('VarUtf8TextShortStr', 'a üü1'''' \\\\t 2 \\t 3''#\$?0*9''4''#(13|\$0*D)''5\\n6', 'ShortString', []);
|
|
|
|
r:=AddStringFmtDef ('ConstUtf8TextAnsi2', 'üü''''1', 'AnsiString', []);
|
|
r:=AddShortStrFmtDef('ConstUtf8TextShort2', 'üü''''1', 'ShortString', []);
|
|
r:=AddShortStrFmtDef('ConstUtf8TextShortStr2', 'üü''''1', 'ShortString', []);
|
|
r:=AddStringFmtDef ('VarUtf8TextAnsi2', 'üü''''1', 'AnsiString', []);
|
|
r:=AddShortStrFmtDef('VarUtf8TextShort2', 'üü''''1', 'ShortString', []);
|
|
r:=AddShortStrFmtDef('VarUtf8TextShortStr2', 'üü''''1', 'ShortString', []);
|
|
|
|
r:=AddStringFmtDef ('ConstUtf8TextAnsiBad', 'a ''#(170|\$AA)''b', 'AnsiString', []);
|
|
r:=AddShortStrFmtDef('ConstUtf8TextShortBad', 'a ''#(170|\$AA)''b', 'ShortString', []);
|
|
r:=AddShortStrFmtDef('ConstUtf8TextShortStrBad', 'a ''#(170|\$AA)''b', 'ShortString', []);
|
|
r:=AddStringFmtDef ('VarUtf8TextAnsiBad', 'a ''#(170|\$AA)''b', 'AnsiString', []);
|
|
r:=AddShortStrFmtDef('VarUtf8TextShortBad', 'a ''#(170|\$AA)''b', 'ShortString', []);
|
|
r:=AddShortStrFmtDef('VarUtf8TextShortStrBad', 'a ''#(170|\$AA)''b', 'ShortString', []);
|
|
|
|
{%endregion * Strings * }
|
|
|
|
{%region * Simple * }
|
|
|
|
AddFmtDef('ArgByte', '^25$', skSimple, 'Byte', []);
|
|
AddFmtDef('VArgByte', '^25$', skSimple, 'Byte', []);
|
|
AddFmtDef('ArgWord', '^26$', skSimple, 'Word', []);
|
|
AddFmtDef('VArgWord', '^26$', skSimple, 'Word', []);
|
|
AddFmtDef('ArgLongWord', '^27$', skSimple, 'LongWord', []);
|
|
AddFmtDef('VArgLongWord', '^27$', skSimple, 'LongWord', []);
|
|
AddFmtDef('ArgQWord', '^28$', skSimple, 'QWord', []);
|
|
AddFmtDef('VArgQWord', '^28$', skSimple, 'QWord', []);
|
|
|
|
AddFmtDef('ArgShortInt', '^35$', skSimple, 'ShortInt', []);
|
|
AddFmtDef('VArgShortInt', '^35$', skSimple, 'ShortInt', []);
|
|
AddFmtDef('ArgSmallInt', '^36$', skSimple, 'SmallInt', []);
|
|
AddFmtDef('VArgSmallInt', '^36$', skSimple, 'SmallInt', []);
|
|
AddFmtDef('ArgInt', '^37$', skSimple, 'Integer|LongInt', [fTpMtch]);
|
|
AddFmtDef('VArgInt', '^37$', skSimple, 'Integer|LongInt', [fTpMtch]);
|
|
AddFmtDef('ArgInt64', '^38$', skSimple, 'Int64', []);
|
|
AddFmtDef('VArgInt64', '^38$', skSimple, 'Int64', []);
|
|
|
|
AddFmtDef('ArgPointer', Match_Pointer, skPointer, 'Pointer', []);
|
|
AddFmtDef('VArgPointer', Match_Pointer, skPointer, 'Pointer', []);
|
|
(*
|
|
AddFmtDef('ArgPPointer', '', sk, 'PPointer', []);
|
|
AddFmtDef('VArgPPointer', '', sk, 'PPointer', []);
|
|
*)
|
|
|
|
AddFmtDef('ArgDouble', '1\.123', skSimple, 'Double', []);
|
|
AddFmtDef('VArgDouble', '1\.123', skSimple, 'Double', []);
|
|
AddFmtDef('ArgExtended', '2\.345', skSimple, 'Extended|double', [fTpMtch]);
|
|
AddFmtDef('VArgExtended', '2\.345', skSimple, 'Extended|double', [fTpMtch]);
|
|
|
|
(*
|
|
AddFmtDef('ArgPByte', '', sk, 'PByte', []);
|
|
AddFmtDef('VArgPByte', '', sk, 'PByte', []);
|
|
AddFmtDef('ArgPWord', '', sk, 'PWord', []);
|
|
AddFmtDef('VArgPWord', '', sk, 'PWord', []);
|
|
AddFmtDef('ArgPLongWord', '', sk, 'PLongWord', []);
|
|
AddFmtDef('VArgPLongWord', '', sk, 'PLongWord', []);
|
|
AddFmtDef('ArgPQWord', '', sk, 'PQWord', []);
|
|
AddFmtDef('VArgPQWord', '', sk, 'PQWord', []);
|
|
|
|
AddFmtDef('ArgPShortInt', '', sk, 'PShortInt', []);
|
|
AddFmtDef('VArgPShortInt', '', sk, 'PShortInt', []);
|
|
AddFmtDef('ArgPSmallInt', '', sk, 'PSmallInt', []);
|
|
AddFmtDef('VArgPSmallInt', '', sk, 'PSmallInt', []);
|
|
AddFmtDef('ArgPInt', '', sk, 'PInteger', []);
|
|
AddFmtDef('VArgPInt', '', sk, 'PInteger', []);
|
|
AddFmtDef('ArgPInt64', '', sk, 'PInt64', []);
|
|
AddFmtDef('VArgPInt64', '', sk, 'PInt64', []);
|
|
*)
|
|
|
|
// spaces
|
|
AddFmtDef('ArgWord + 1', '^27$', skSimple, 'Word|long', [fTpMtch]);
|
|
AddFmtDef('ArgWord or 64', '^90$', skSimple, 'Word|long', [fTpMtch]);
|
|
AddFmtDef('ArgWord and 67', '^2$', skSimple, 'Word|long', [fTpMtch]);
|
|
|
|
{%endregion * Simple * }
|
|
|
|
{%region * Enum/Set * }
|
|
|
|
AddFmtDef('ArgEnum', '^Two$', skEnum, 'TEnum', []);
|
|
AddFmtDef('ArgEnumSet', '^\[Two(, ?|\.\.)Three\]$', skSet, 'TEnumSet', [IgnDwrf2IfNoSet]);
|
|
AddFmtDef('ArgSet', '^\[Alpha(, ?|\.\.)Beta\]$', skSet, 'TSet', [IgnDwrf2IfNoSet]);
|
|
|
|
AddFmtDef('VarEnumA', '^e3$', skEnum, '', []);
|
|
// maybe typename = "set of TEnum"
|
|
AddFmtDef('VarEnumSetA', '^\[Three\]$', skSet, '', [IgnDwrf2IfNoSet]);
|
|
AddFmtDef('VarSetA', '^\[s2\]$', skSet, '', [IgnDwrf2IfNoSet]);
|
|
|
|
AddFmtDef('GlobSubEnum', '^Two$', skEnum, '', []);
|
|
|
|
AddFmtDef('GlobSubRange1', '^55$', skSimple, '9..77', []);
|
|
//some gdb report 248 (stabs <= 7.2.1 // )
|
|
AddFmtDef('GlobSubRange2', '.', skSimple, '-9..-7', []);
|
|
|
|
{%endregion * Enum/Set * }
|
|
|
|
{%region * Variant * }
|
|
|
|
AddFmtDef('ArgVariantInt', '^5$', skVariant, 'Variant', []);
|
|
AddFmtDef('ArgVariantString', '^''v''$', skVariant, 'Variant', []);
|
|
|
|
AddFmtDef('VArgVariantInt', '^5$', skVariant, 'Variant', []);
|
|
AddFmtDef('VArgVariantString', '^''v''$', skVariant, 'Variant', []);
|
|
{%endregion * Variant * }
|
|
|
|
{%region * procedure/function/method * }
|
|
|
|
AddFmtDef('ArgProcedure', 'procedure', skProcedure, 'TProcedure', []);
|
|
AddFmtDef('ArgFunction', 'function', skFunction, 'TFunction', []);
|
|
(*
|
|
// normal procedure on stabs / recodr on dwarf => maybe the data itself may reveal some ?
|
|
AddFmtDef('ArgObjProcedure', 'procedure.*of object|record.*procedure.*self =',
|
|
skRecord, 'TObjProcedure', []);
|
|
AddFmtDef('ArgObjFunction', 'function.*of object|record.*function.*self =',
|
|
skRecord, 'TObjFunction', []);
|
|
|
|
*)
|
|
// doesn't work, ptype returns empty in dwarf => maybe via whatis
|
|
// AddFmtDef('VArgProcedure', 'procedure', skProcedure, 'TProcedure', []);
|
|
// AddFmtDef('VArgFunction', 'function', skFunction, 'TFunction', []);
|
|
(*
|
|
AddFmtDef('VArgObjProcedure', 'procedure.*of object|record.*procedure.*self =',
|
|
skRecord, 'TObjProcedure', []);
|
|
AddFmtDef('VArgObjFunction', 'function.*of object|record.*function.*self =',
|
|
skRecord, 'TObjFunction', []);
|
|
*)
|
|
|
|
AddFmtDef('VarProcedureA', 'procedure', skProcedure, 'Procedure', []);
|
|
AddFmtDef('VarFunctionA', 'function', skFunction, 'Function', []);
|
|
(*
|
|
AddFmtDef('VarObjProcedureA', 'procedure.*of object|record.*procedure.*self =',
|
|
skRecord, 'Procedure', []);
|
|
AddFmtDef('VarObjFunctionA', 'function.*of object|record.*function.*self =',
|
|
skRecord, 'Function', []);
|
|
*)
|
|
{%endregion * procedure/function/method * }
|
|
|
|
{%region * numbers * }
|
|
AddFmtDef('21', '21', skSimple, 'int|Integer|LongInt', [fTpMtch]);
|
|
AddFmtDef('021', '21', skSimple, 'int|Integer|LongInt', [fTpMtch]); // octal
|
|
AddFmtDef('$15', '21', skSimple, 'int|Integer|LongInt', [fTpMtch]);
|
|
AddFmtDef('&25', '21', skSimple, 'int|Integer|LongInt', [fTpMtch]);
|
|
AddFmtDef('%10101', '21', skSimple, 'int|Integer|LongInt', [fTpMtch]);
|
|
{%endregion * numbers * }
|
|
|
|
if RUN_TEST_ONLY > 0 then begin
|
|
ExpectBreakFoo[0] := ExpectBreakFoo[abs(RUN_TEST_ONLY)];
|
|
SetLength(ExpectBreakFoo, 1);
|
|
end;
|
|
end;
|
|
|
|
procedure TTestWatches.AddExpectBreakFooArray;
|
|
|
|
function AddRecForArrFmtDef (AnExpr: string; ARecSuffix, AValue: Integer; AFlgs: TWatchExpectationFlags=[]): PWatchExpectation;
|
|
begin
|
|
case ARecSuffix of
|
|
1: Result := Add(AnExpr, MatchRecord('TRecForArray1', ' a = '+IntToStr(AValue)), skRecord, 'TRecForArray1', AFlgs );
|
|
2: Result := Add(AnExpr, MatchRecord('TRecForArray2', ' c = '+IntToStr(AValue)), skRecord, 'TRecForArray2', AFlgs );
|
|
3: Result := Add(AnExpr, MatchRecord('TRecForArray3', ' a = '+IntToStr(AValue)), skRecord, 'TRecForArray3', AFlgs );
|
|
4: Result := Add(AnExpr, MatchRecord('TRecForArray4', ' c = '+IntToStr(AValue)), skRecord, 'TRecForArray4', AFlgs );
|
|
end;
|
|
|
|
case ARecSuffix of
|
|
1,3: Add(AnExpr+'.a', '^'+IntToStr(AValue)+'$', skSimple, M_Int, AFlgs+[fTpMtch] );
|
|
2,4: Add(AnExpr+'.c', '^'+IntToStr(AValue)+'$', skSimple, M_Int, AFlgs+[fTpMtch] );
|
|
end;
|
|
end;
|
|
|
|
function AddArrayFmtDef (AnExpr, AMtch, ATpNm: string; AFlgs: TWatchExpectationFlags=[]): PWatchExpectation;
|
|
begin
|
|
Result := Add(AnExpr, AMtch, skSimple, ATpNm, AFlgs );
|
|
end;
|
|
|
|
var
|
|
r: PWatchExpectation;
|
|
v: string;
|
|
i: integer;
|
|
begin
|
|
if not TestControlCanTest(ControlTestWatchAll) then exit;
|
|
FCurrentExpArray := @ExpectBreakFooArray;
|
|
|
|
{%region * Array * }
|
|
//TODO: DynArray, decide what to display
|
|
// TODO {} fixup array => replace with []
|
|
AddFmtDef('VarDynIntArray', Match_Pointer+'|\{\}|0,[\s\r\n]+2',
|
|
skSimple, 'TDynIntArray',
|
|
[]);
|
|
//TODO add () around list
|
|
if FDoStatIntArray then
|
|
AddFmtDef('VarStatIntArray', '10,[\s\r\n]+12,[\s\r\n]+14,[\s\r\n]+16,[\s\r\n]+18',
|
|
skSimple, 'TStatIntArray',
|
|
[]);
|
|
AddFmtDef('VarPDynIntArray', Match_Pointer,
|
|
skPointer, 'PDynIntArray',
|
|
[]);
|
|
AddFmtDef('VarPStatIntArray', Match_Pointer,
|
|
skPointer, 'PStatIntArray',
|
|
[]);
|
|
AddFmtDef('VarDynIntArrayA', Match_Pointer+'|\{\}|0,[\s\r\n]+2',
|
|
skSimple, '',
|
|
[]);
|
|
if FDoStatIntArray then
|
|
AddFmtDef('VarStatIntArrayA', '10,[\s\r\n]+12,[\s\r\n]+14,[\s\r\n]+16,[\s\r\n]+18',
|
|
skSimple, '',
|
|
[]);
|
|
|
|
AddFmtDef('VarDynIntArray[1]', '2',
|
|
skSimple, 'Integer|LongInt',
|
|
[fTpMtch]);
|
|
AddFmtDef('VarDynIntArray[18]', '36',
|
|
skSimple, 'Integer|LongInt',
|
|
[fTpMtch]);
|
|
// index in hex
|
|
AddFmtDef('VarDynIntArray[$1]', '2',
|
|
skSimple, 'Integer|LongInt',
|
|
[fTpMtch]);
|
|
AddFmtDef('VarDynIntArray[$12]', '36',
|
|
skSimple, 'Integer|LongInt',
|
|
[fTpMtch]);
|
|
AddFmtDef('VarDynIntArray[&1]', '2',
|
|
skSimple, 'Integer|LongInt',
|
|
[fTpMtch]);
|
|
AddFmtDef('VarDynIntArray[&22]', '36',
|
|
skSimple, 'Integer|LongInt',
|
|
[fTpMtch]);
|
|
AddFmtDef('VarDynIntArray[%1]', '2',
|
|
skSimple, 'Integer|LongInt',
|
|
[fTpMtch]);
|
|
AddFmtDef('VarDynIntArray[%10010]', '36',
|
|
skSimple, 'Integer|LongInt',
|
|
[fTpMtch]);
|
|
AddFmtDef('VarDynIntArray[0x1]', '2',
|
|
skSimple, 'Integer|LongInt',
|
|
[fTpMtch]);
|
|
AddFmtDef('VarDynIntArray[0x12]', '36',
|
|
skSimple, 'Integer|LongInt',
|
|
[fTpMtch]);
|
|
|
|
AddFmtDef('VarStatIntArray[6]', '12',
|
|
skSimple, 'Integer|LongInt',
|
|
[fTpMtch]);
|
|
AddFmtDef('VarPDynIntArray^[1]', '2',
|
|
skSimple, 'Integer|LongInt',
|
|
[fTpMtch]);
|
|
AddFmtDef('VarPStatIntArray^[6]', '12',
|
|
skSimple, 'Integer|LongInt',
|
|
[fTpMtch]);
|
|
AddFmtDef('VarDynIntArrayA[1]', '2',
|
|
skSimple, 'Integer|LongInt',
|
|
[fTpMtch]);
|
|
AddFmtDef('VarStatIntArrayA[6]', '12',
|
|
skSimple, 'Integer|LongInt',
|
|
[fTpMtch]);
|
|
{%endregion * Array * }
|
|
|
|
for i := 0 to 1 do begin
|
|
if i = 0
|
|
then v := ''
|
|
else v := 'V';
|
|
|
|
{%region DYN ARRAY}
|
|
{%region DYN ARRAY (norm)}
|
|
//TDynArrayTRec1 = array of TRecForArray3;
|
|
r := AddArrayFmtDef(v+'ArgTDynArrayTRec1', '.', 'TDynArrayTRec1', []);
|
|
if v = 'V' then UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddRecForArrFmtDef(v+'ArgTDynArrayTRec1[0]', 3, 90, []);
|
|
r := AddRecForArrFmtDef(v+'ArgTDynArrayTRec1[1]', 3, 91, []);
|
|
//TDynArrayPRec1 = array of ^TRecForArray3;
|
|
r := AddArrayFmtDef(v+'ArgTDynArrayPRec1', '.', 'TDynArrayPRec1', []);
|
|
if v = 'V' then UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddPointerFmtDef (v+'ArgTDynArrayPRec1[0]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef(v+'ArgTDynArrayPRec1[0]^', 3, 90, []);
|
|
r := AddPointerFmtDef (v+'ArgTDynArrayPRec1[1]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef(v+'ArgTDynArrayPRec1[1]^', 3, 91, []);
|
|
//TDynDynArrayTRec1 = array of array of TRecForArray1;
|
|
r := AddArrayFmtDef(v+'ArgTDynDynArrayTRec1', '.', 'TDynDynArrayTRec1', []);
|
|
if v = 'V' then UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddArrayFmtDef(v+'ArgTDynDynArrayTRec1[0]', '.', '', []); // TODO? typename = array of ...
|
|
r := AddRecForArrFmtDef(v+'ArgTDynDynArrayTRec1[0][0]', 1, 80, []);
|
|
//if v = 'V' then UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddRecForArrFmtDef(v+'ArgTDynDynArrayTRec1[0][1]', 1, 81, []);
|
|
//if v = 'V' then UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddArrayFmtDef(v+'ArgTDynDynArrayTRec1[1]', '.', '', []); // TODO? typename = array of ...
|
|
r := AddRecForArrFmtDef(v+'ArgTDynDynArrayTRec1[1][0]', 1, 85, []);
|
|
//if v = 'V' then UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddRecForArrFmtDef(v+'ArgTDynDynArrayTRec1[1][1]', 1, 86, []);
|
|
r := AddRecForArrFmtDef(v+'ArgTDynDynArrayTRec1[1,1]', 1, 86, []); // comma separated index
|
|
//if v = 'V' then UpdResMinFpc(r, stDwarf2All, 020600);
|
|
//TDynDynArrayPRec1 = array of array of ^TRecForArray1;
|
|
//TDynStatArrayTRec1 = array of array [3..5] of TRecForArray1;
|
|
//TDynStatArrayPRec1 = array of array [3..5] of ^TRecForArray1;
|
|
//
|
|
//TDynArrayTRec2 = array of TRecForArray4;
|
|
//TDynArrayPRec2 = array of ^TRecForArray4;
|
|
//TDynArrayPPRec2 = array of ^PRecForArray4; // double pointer
|
|
//TDynDynArrayTRec2 = array of array of TRecForArray2;
|
|
//TDynDynArrayPRec2 = array of array of ^TRecForArray2;
|
|
//TDynStatArrayTRec2 = array of array [3..5] of TRecForArray2;
|
|
//TDynStatArrayPRec2 = array of array [3..5] of ^TRecForArray2;
|
|
|
|
(* Array in expression*)
|
|
Add(v+'ArgTDynArrayTRec1[0].a+'+v+'ArgTDynArrayTRec1[1].a', '^181$', skSimple, M_Int+'|long', [fTpMtch] );
|
|
Add(v+'ArgTDynArrayTRec1[0].a+'+'ArgTDynArrayTRec1[1].a', '^181$', skSimple, M_Int+'|long', [fTpMtch] );
|
|
Add('ArgTDynArrayTRec1[0].a+'+v+'ArgTDynArrayTRec1[1].a', '^181$', skSimple, M_Int+'|long', [fTpMtch] );
|
|
Add(v+'ArgTDynArrayTRec1[0].a and '+v+'ArgTDynArrayTRec1[1].a', '^90$', skSimple, M_Int+'|long', [fTpMtch] );
|
|
|
|
Add(v+'ArgTDynDynArrayTRec1[1][1].a+'+v+'ArgTDynArrayPRec1[1]^.a', '^177$', skSimple, M_Int+'|long', [fTpMtch] );
|
|
Add(v+'ArgTDynArrayPRec1[1]^.a+'+v+'ArgTDynDynArrayTRec1[1][1].a', '^177$', skSimple, M_Int+'|long', [fTpMtch] );
|
|
|
|
{%endregion DYN ARRAY (norm)}
|
|
|
|
{%region DYN ARRAY (VAR)}
|
|
// dyn arrays VAR
|
|
(*
|
|
//TDynArrayTRec1 = array of TRecForArray3;
|
|
r := AddArrayFmtDef('VArgTDynArrayTRec1', '.', 'TDynArrayTRec1', []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddRecForArrFmtDef('VArgTDynArrayTRec1[0]', 3, 90, []);
|
|
r := AddRecForArrFmtDef('VArgTDynArrayTRec1[1]', 3, 91, []);
|
|
//TDynArrayPRec1 = array of ^TRecForArray3;
|
|
r := AddArrayFmtDef('VArgTDynArrayPRec1', '.', 'TDynArrayPRec1', []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddPointerFmtDef ('VArgTDynArrayPRec1[0]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('VArgTDynArrayPRec1[0]^', 3, 90, []);
|
|
r := AddPointerFmtDef ('VArgTDynArrayPRec1[1]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('VArgTDynArrayPRec1[1]^', 3, 91, []);
|
|
//TDynDynArrayTRec1 = array of array of TRecForArray1;
|
|
r := AddArrayFmtDef('VArgTDynDynArrayTRec1', '.', 'TDynDynArrayTRec1', []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddArrayFmtDef('VArgTDynDynArrayTRec1[0]', '.', '', []); // TODO? typename = array of ...
|
|
r := AddRecForArrFmtDef('VArgTDynDynArrayTRec1[0][0]', 1, 80, []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddRecForArrFmtDef('VArgTDynDynArrayTRec1[0][1]', 1, 81, []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddArrayFmtDef('VArgTDynDynArrayTRec1[1]', '.', '', []); // TODO? typename = array of ...
|
|
r := AddRecForArrFmtDef('VArgTDynDynArrayTRec1[1][0]', 1, 85, []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddRecForArrFmtDef('VArgTDynDynArrayTRec1[1][1]', 1, 86, []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
//TDynDynArrayPRec1 = array of array of ^TRecForArray1;
|
|
//TDynStatArrayTRec1 = array of array [3..5] of TRecForArray1;
|
|
//TDynStatArrayPRec1 = array of array [3..5] of ^TRecForArray1;
|
|
//
|
|
//TDynArrayTRec2 = array of TRecForArray4;
|
|
//TDynArrayPRec2 = array of ^TRecForArray4;
|
|
//TDynArrayPPRec2 = array of ^PRecForArray4; // double pointer
|
|
//TDynDynArrayTRec2 = array of array of TRecForArray2;
|
|
//TDynDynArrayPRec2 = array of array of ^TRecForArray2;
|
|
//TDynStatArrayTRec2 = array of array [3..5] of TRecForArray2;
|
|
//TDynStatArrayPRec2 = array of array [3..5] of ^TRecForArray2;
|
|
*)
|
|
{%endregion DYN ARRAY (VAR)}
|
|
{%endregion DYN ARRAY}
|
|
end;
|
|
|
|
|
|
{%region STAT ARRAY}
|
|
{%region STAT ARRAY (norm)}
|
|
//TStatArrayTRec1 = array [3..5] of TRecForArray3;
|
|
r := AddArrayFmtDef('ArgTStatArrayTRec1', '.', 'TStatArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('ArgTStatArrayTRec1[3]', 3, 50, []);
|
|
r := AddRecForArrFmtDef('ArgTStatArrayTRec1[4]', 3, 51, []);
|
|
//TStatArrayPRec1 = array [3..5] of ^TRecForArray3;
|
|
r := AddArrayFmtDef('ArgTStatArrayPRec1', '.', 'TStatArrayPRec1', []);
|
|
r := AddPointerFmtDef ('ArgTStatArrayPRec1[3]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('ArgTStatArrayPRec1[3]^', 3, 50, []);
|
|
r := AddPointerFmtDef ('ArgTStatArrayPRec1[4]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('ArgTStatArrayPRec1[4]^', 3, 51, []);
|
|
//TStatDynArrayTRec1 = array [3..5] of array of TRecForArray1;
|
|
r := AddArrayFmtDef('ArgTStatDynArrayTRec1', '.', 'TStatDynArrayTRec1', []);
|
|
r := AddArrayFmtDef('ArgTStatDynArrayTRec1[3]', '.', '', []); // TODO? typename = array of ...
|
|
r := AddRecForArrFmtDef('ArgTStatDynArrayTRec1[3][0]', 1, 40, []);
|
|
r := AddRecForArrFmtDef('ArgTStatDynArrayTRec1[3][1]', 1, 41, []);
|
|
r := AddArrayFmtDef('ArgTStatDynArrayTRec1[4]', '.', '', []); // TODO? typename = array of ...
|
|
r := AddRecForArrFmtDef('ArgTStatDynArrayTRec1[4][0]', 1, 45, []);
|
|
r := AddRecForArrFmtDef('ArgTStatDynArrayTRec1[4][1]', 1, 46, []);
|
|
r := AddRecForArrFmtDef('ArgTStatDynArrayTRec1[4,1]', 1, 46, []); // comma separated index
|
|
//TStatDynArrayPRec1 = array [3..5] of array of ^TRecForArray1;
|
|
//TStatStatArrayTRec1 = array [3..5] of array [3..5] of TRecForArray1;
|
|
//TStatStatArrayPRec1 = array [3..5] of array [3..5] of ^TRecForArray1;
|
|
//
|
|
//TStatArrayTRec2 = array [3..5] of TRecForArray4;
|
|
//TStatArrayPRec2 = array [3..5] of ^TRecForArray4;
|
|
//TStatArrayPPRec2 = array [3..5] of ^PRecForArray4; // double pointer
|
|
//TStatDynArrayTRec2 = array [3..5] of array of TRecForArray2;
|
|
//TStatDynArrayPRec2 = array [3..5] of array of ^TRecForArray2;
|
|
//TStatStatArrayTRec2 = array [3..5] of array [3..5] of TRecForArray2;
|
|
//TStatStatArrayPRec2 = array [3..5] of array [3..5] of ^TRecForArray2;
|
|
{%endregion STAT ARRAY (norm)}
|
|
|
|
{%region STAT ARRAY (VAR)}
|
|
//TStatArrayTRec1 = array [3..5] of TRecForArray3;
|
|
r := AddArrayFmtDef('VArgTStatArrayTRec1', '.', 'TStatArrayTRec1', []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddRecForArrFmtDef('VArgTStatArrayTRec1[3]', 3, 50, []);
|
|
r := AddRecForArrFmtDef('VArgTStatArrayTRec1[4]', 3, 51, []);
|
|
//TStatArrayPRec1 = array [3..5] of ^TRecForArray3;
|
|
r := AddArrayFmtDef('VArgTStatArrayPRec1', '.', 'TStatArrayPRec1', []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddPointerFmtDef ('VArgTStatArrayPRec1[3]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('VArgTStatArrayPRec1[3]^', 3, 50, []);
|
|
r := AddPointerFmtDef ('VArgTStatArrayPRec1[4]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('VArgTStatArrayPRec1[4]^', 3, 51, []);
|
|
//TStatDynArrayTRec1 = array [3..5] of array of TRecForArray1;
|
|
r := AddArrayFmtDef('VArgTStatDynArrayTRec1', '.', 'TStatDynArrayTRec1', []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddArrayFmtDef('VArgTStatDynArrayTRec1[3]', '.', '', []); // TODO? typename = array of ...
|
|
r := AddRecForArrFmtDef('VArgTStatDynArrayTRec1[3][0]', 1, 40, []);
|
|
r := AddRecForArrFmtDef('VArgTStatDynArrayTRec1[3][1]', 1, 41, []);
|
|
r := AddArrayFmtDef('VArgTStatDynArrayTRec1[4]', '.', '', []); // TODO? typename = array of ...
|
|
r := AddRecForArrFmtDef('VArgTStatDynArrayTRec1[4][0]', 1, 45, []);
|
|
r := AddRecForArrFmtDef('VArgTStatDynArrayTRec1[4][1]', 1, 46, []);
|
|
//TStatDynArrayPRec1 = array [3..5] of array of ^TRecForArray1;
|
|
//TStatStatArrayTRec1 = array [3..5] of array [3..5] of TRecForArray1;
|
|
//TStatStatArrayPRec1 = array [3..5] of array [3..5] of ^TRecForArray1;
|
|
//
|
|
//TStatArrayTRec2 = array [3..5] of TRecForArray4;
|
|
//TStatArrayPRec2 = array [3..5] of ^TRecForArray4;
|
|
//TStatArrayPPRec2 = array [3..5] of ^PRecForArray4; // double pointer
|
|
//TStatDynArrayTRec2 = array [3..5] of array of TRecForArray2;
|
|
//TStatDynArrayPRec2 = array [3..5] of array of ^TRecForArray2;
|
|
//TStatStatArrayTRec2 = array [3..5] of array [3..5] of TRecForArray2;
|
|
//TStatStatArrayPRec2 = array [3..5] of array [3..5] of ^TRecForArray2;
|
|
{%endregion STAT ARRAY (VAR)}
|
|
{%endregion STAT ARRAY}
|
|
|
|
|
|
{%region DYN ARRAY of named arrays}
|
|
{%region DYN ARRAY of named arrays (norm)}
|
|
//TDynDynTRec1Array = array of TDynArrayTRec1;
|
|
r := AddArrayFmtDef('ArgTDynDynTRec1Array', '.', 'TDynDynTRec1Array', []);
|
|
r := AddArrayFmtDef('ArgTDynDynTRec1Array[0]', '.', 'TDynArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('ArgTDynDynTRec1Array[0][0]', 3, 80, []);
|
|
r := AddRecForArrFmtDef('ArgTDynDynTRec1Array[0][1]', 3, 81, []);
|
|
r := AddArrayFmtDef('ArgTDynDynTRec1Array[1]', '.', 'TDynArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('ArgTDynDynTRec1Array[1][0]', 3, 85, []);
|
|
r := AddRecForArrFmtDef('ArgTDynDynTRec1Array[1][1]', 3, 86, []);
|
|
//TDynDynPRec1Array = array of TDynArrayPRec1;
|
|
r := AddArrayFmtDef('ArgTDynDynPRec1Array', '.', 'TDynDynPRec1Array', []);
|
|
r := AddArrayFmtDef('ArgTDynDynPRec1Array[0]', '.', 'TDynArrayPRec1', []);
|
|
r := AddPointerFmtDef ('ArgTDynDynPRec1Array[0][0]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('ArgTDynDynPRec1Array[0][0]^', 3, 80, []);
|
|
r := AddPointerFmtDef ('ArgTDynDynPRec1Array[0][1]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('ArgTDynDynPRec1Array[0][1]^', 3, 81, []);
|
|
r := AddArrayFmtDef('ArgTDynDynPRec1Array[1]', '.', 'TDynArrayPRec1', []);
|
|
r := AddPointerFmtDef ('ArgTDynDynPRec1Array[1][0]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('ArgTDynDynPRec1Array[1][0]^', 3, 85, []);
|
|
r := AddPointerFmtDef ('ArgTDynDynPRec1Array[1][1]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('ArgTDynDynPRec1Array[1][1]^', 3, 86, []);
|
|
//TDynStatTRec1Array = array of TStatArrayTRec1;
|
|
r := AddArrayFmtDef('ArgTDynStatTRec1Array', '.', 'TDynStatTRec1Array', []);
|
|
r := AddArrayFmtDef('ArgTDynStatTRec1Array[0]', '.', 'TStatArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('ArgTDynStatTRec1Array[0][3]', 3, 70, []);
|
|
r := AddRecForArrFmtDef('ArgTDynStatTRec1Array[0][4]', 3, 71, []);
|
|
r := AddArrayFmtDef('ArgTDynStatTRec1Array[1]', '.', 'TStatArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('ArgTDynStatTRec1Array[1][3]', 3, 75, []);
|
|
r := AddRecForArrFmtDef('ArgTDynStatTRec1Array[1][4]', 3, 76, []);
|
|
//TDynStatPRec1Array = array of TStatArrayPRec1;
|
|
r := AddArrayFmtDef('ArgTDynStatPRec1Array', '.', 'TDynStatPRec1Array', []);
|
|
r := AddArrayFmtDef('ArgTDynStatPRec1Array[0]', '.', 'TStatArrayPRec1', []);
|
|
r := AddPointerFmtDef ('ArgTDynStatPRec1Array[0][3]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('ArgTDynStatPRec1Array[0][3]^', 3, 70, []);
|
|
r := AddPointerFmtDef ('ArgTDynStatPRec1Array[0][4]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('ArgTDynStatPRec1Array[0][4]^', 3, 71, []);
|
|
r := AddArrayFmtDef('ArgTDynStatPRec1Array[1]', '.', 'TStatArrayPRec1', []);
|
|
r := AddPointerFmtDef ('ArgTDynStatPRec1Array[1][3]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('ArgTDynStatPRec1Array[1][3]^', 3, 75, []);
|
|
r := AddPointerFmtDef ('ArgTDynStatPRec1Array[1][4]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('ArgTDynStatPRec1Array[1][4]^', 3, 76, []);
|
|
//TDynPDynTRec1Array = array of ^TDynArrayTRec1;
|
|
r := AddArrayFmtDef('ArgTDynPDynTRec1Array', '.', 'TDynPDynTRec1Array', []);
|
|
r := AddPointerFmtDef ('ArgTDynPDynTRec1Array[0]', '(\^T|P)DynArrayTRec1', '^(\^T|P)DynArrayTRec1$', [fTpMtch]);
|
|
r := AddArrayFmtDef('ArgTDynPDynTRec1Array[0]^', '.', 'TDynArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('ArgTDynPDynTRec1Array[0]^[0]', 3, 80, []);
|
|
r := AddRecForArrFmtDef('ArgTDynPDynTRec1Array[0]^[1]', 3, 81, []);
|
|
r := AddPointerFmtDef ('ArgTDynPDynTRec1Array[1]', '(\^T|P)DynArrayTRec1', '^(\^T|P)DynArrayTRec1$', [fTpMtch]);
|
|
r := AddArrayFmtDef('ArgTDynPDynTRec1Array[1]^', '.', 'TDynArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('ArgTDynPDynTRec1Array[1]^[0]', 3, 85, []);
|
|
r := AddRecForArrFmtDef('ArgTDynPDynTRec1Array[1]^[1]', 3, 86, []);
|
|
//TDynPStatTRec1Array = array of ^TStatArrayTRec1;
|
|
r := AddArrayFmtDef('ArgTDynPStatTRec1Array', '.', 'TDynPStatTRec1Array', []);
|
|
r := AddPointerFmtDef ('ArgTDynPStatTRec1Array[0]', '(\^T|P)StatArrayTRec1', '(\^T|P)StatArrayTRec1$', [fTpMtch]);
|
|
r := AddArrayFmtDef('ArgTDynPStatTRec1Array[0]^', '.', 'TStatArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('ArgTDynPStatTRec1Array[0]^[3]', 3, 70, []);
|
|
r := AddRecForArrFmtDef('ArgTDynPStatTRec1Array[0]^[4]', 3, 71, []);
|
|
r := AddPointerFmtDef ('ArgTDynPStatTRec1Array[1]', '(\^T|P)StatArrayTRec1', '(\^T|P)StatArrayTRec1$', [fTpMtch]);
|
|
r := AddArrayFmtDef('ArgTDynPStatTRec1Array[1]^', '.', 'TStatArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('ArgTDynPStatTRec1Array[1]^[3]', 3, 75, []);
|
|
r := AddRecForArrFmtDef('ArgTDynPStatTRec1Array[1]^[4]', 3, 76, []);
|
|
//TDynPDynTRec1NPArray = array of ^TDynArrayTRec1NP;
|
|
r := AddArrayFmtDef('ArgTDynPDynTRec1NPArray', '.', 'TDynPDynTRec1NPArray', []);
|
|
r := AddPointerFmtDef ('ArgTDynPDynTRec1NPArray[0]', '\^TDynArrayTRec1NP', '^TDynArrayTRec1NP', []);
|
|
r := AddArrayFmtDef('ArgTDynPDynTRec1NPArray[0]^', '.', 'TDynArrayTRec1NP', []);
|
|
r := AddRecForArrFmtDef('ArgTDynPDynTRec1NPArray[0]^[0]', 3, 500, []);
|
|
r := AddRecForArrFmtDef('ArgTDynPDynTRec1NPArray[0]^[1]', 3, 501, []);
|
|
r := AddPointerFmtDef ('ArgTDynPDynTRec1NPArray[1]', '\^TDynArrayTRec1NP', '^TDynArrayTRec1NP', []);
|
|
r := AddArrayFmtDef('ArgTDynPDynTRec1NPArray[1]^', '.', 'TDynArrayTRec1NP', []);
|
|
r := AddRecForArrFmtDef('ArgTDynPDynTRec1NPArray[1]^[0]', 3, 505, []);
|
|
r := AddRecForArrFmtDef('ArgTDynPDynTRec1NPArray[1]^[1]', 3, 506, []);
|
|
//TDynPStatTRec1NPArray= array of ^TStatArrayTRec1NP;
|
|
r := AddArrayFmtDef('ArgTDynPStatTRec1NPArray', '.', 'TDynPStatTRec1NPArray', []);
|
|
r := AddPointerFmtDef ('ArgTDynPStatTRec1NPArray[0]', '\^TStatArrayTRec1NP', '^TStatArrayTRec1NP', []);
|
|
r := AddArrayFmtDef('ArgTDynPStatTRec1NPArray[0]^', '.', 'TStatArrayTRec1NP', []);
|
|
r := AddRecForArrFmtDef('ArgTDynPStatTRec1NPArray[0]^[3]', 3, 510, []);
|
|
r := AddRecForArrFmtDef('ArgTDynPStatTRec1NPArray[0]^[4]', 3, 511, []);
|
|
r := AddPointerFmtDef ('ArgTDynPStatTRec1NPArray[1]', '\^TStatArrayTRec1NP', '^TStatArrayTRec1NP', []);
|
|
r := AddArrayFmtDef('ArgTDynPStatTRec1NPArray[1]^', '.', 'TStatArrayTRec1NP', []);
|
|
r := AddRecForArrFmtDef('ArgTDynPStatTRec1NPArray[1]^[3]', 3, 515, []);
|
|
r := AddRecForArrFmtDef('ArgTDynPStatTRec1NPArray[1]^[4]', 3, 516, []);
|
|
//
|
|
//TDynDynTRec2Array = array of TDynArrayTRec2;
|
|
//TDynDynPrec2Array = array of TDynArrayPRec2;
|
|
//TDynDynPPrec2Array = array of TDynArrayPPRec2; // double pointer
|
|
//TDynStatTRec2Array = array of TStatArrayTRec2;
|
|
//TDynStatPRec2Array = array of TStatArrayPRec2;
|
|
//TDynStatPPRec2Array = array of TStatArrayPPRec2; // double pointer
|
|
{%endregion DYN ARRAY of named arrays (norm)}
|
|
|
|
{%region DYN ARRAY of named arrays (VAR)}
|
|
// dyn arrays of named arrays (VAR)
|
|
//TDynDynTRec1Array = array of TDynArrayTRec1;
|
|
r := AddArrayFmtDef('VArgTDynDynTRec1Array', '.', 'TDynDynTRec1Array', []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddArrayFmtDef('VArgTDynDynTRec1Array[0]', '.', 'TDynArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('VArgTDynDynTRec1Array[0][0]', 3, 80, []);
|
|
r := AddRecForArrFmtDef('VArgTDynDynTRec1Array[0][1]', 3, 81, []);
|
|
r := AddArrayFmtDef('VArgTDynDynTRec1Array[1]', '.', 'TDynArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('VArgTDynDynTRec1Array[1][0]', 3, 85, []);
|
|
r := AddRecForArrFmtDef('VArgTDynDynTRec1Array[1][1]', 3, 86, []);
|
|
//TDynDynPRec1Array = array of TDynArrayPRec1;
|
|
r := AddArrayFmtDef('VArgTDynDynPRec1Array', '.', 'TDynDynPRec1Array', []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddArrayFmtDef('VArgTDynDynPRec1Array[0]', '.', 'TDynArrayPRec1', []);
|
|
r := AddPointerFmtDef ('VArgTDynDynPRec1Array[0][0]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('VArgTDynDynPRec1Array[0][0]^', 3, 80, []);
|
|
r := AddPointerFmtDef ('VArgTDynDynPRec1Array[0][1]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('VArgTDynDynPRec1Array[0][1]^', 3, 81, []);
|
|
r := AddArrayFmtDef('VArgTDynDynPRec1Array[1]', '.', 'TDynArrayPRec1', []);
|
|
r := AddPointerFmtDef ('VArgTDynDynPRec1Array[1][0]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('VArgTDynDynPRec1Array[1][0]^', 3, 85, []);
|
|
r := AddPointerFmtDef ('VArgTDynDynPRec1Array[1][1]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('VArgTDynDynPRec1Array[1][1]^', 3, 86, []);
|
|
//TDynStatTRec1Array = array of TStatArrayTRec1;
|
|
r := AddArrayFmtDef('VArgTDynStatTRec1Array', '.', 'TDynStatTRec1Array', []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddArrayFmtDef('VArgTDynStatTRec1Array[0]', '.', 'TStatArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('VArgTDynStatTRec1Array[0][3]', 3, 70, []);
|
|
r := AddRecForArrFmtDef('VArgTDynStatTRec1Array[0][4]', 3, 71, []);
|
|
r := AddArrayFmtDef('VArgTDynStatTRec1Array[1]', '.', 'TStatArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('VArgTDynStatTRec1Array[1][3]', 3, 75, []);
|
|
r := AddRecForArrFmtDef('VArgTDynStatTRec1Array[1][4]', 3, 76, []);
|
|
//TDynStatPRec1Array = array of TStatArrayPRec1;
|
|
r := AddArrayFmtDef('VArgTDynStatPRec1Array', '.', 'TDynStatPRec1Array', []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddArrayFmtDef('VArgTDynStatPRec1Array[0]', '.', 'TStatArrayPRec1', []);
|
|
r := AddPointerFmtDef ('VArgTDynStatPRec1Array[0][3]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('VArgTDynStatPRec1Array[0][3]^', 3, 70, []);
|
|
r := AddPointerFmtDef ('VArgTDynStatPRec1Array[0][4]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('VArgTDynStatPRec1Array[0][4]^', 3, 71, []);
|
|
r := AddArrayFmtDef('VArgTDynStatPRec1Array[1]', '.', 'TStatArrayPRec1', []);
|
|
r := AddPointerFmtDef ('VArgTDynStatPRec1Array[1][3]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('VArgTDynStatPRec1Array[1][3]^', 3, 75, []);
|
|
r := AddPointerFmtDef ('VArgTDynStatPRec1Array[1][4]', '\^TRecForArray3', '^TRecForArray3', []);
|
|
r := AddRecForArrFmtDef('VArgTDynStatPRec1Array[1][4]^', 3, 76, []);
|
|
//TDynPDynTRec1Array = array of ^TDynArrayTRec1;
|
|
r := AddArrayFmtDef('VArgTDynPDynTRec1Array', '.', 'TDynPDynTRec1Array', []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddPointerFmtDef ('VArgTDynPDynTRec1Array[0]', '(\^T|P)DynArrayTRec1', '^(\^T|P)DynArrayTRec1$', [fTpMtch]);
|
|
if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 070000) then UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddArrayFmtDef('VArgTDynPDynTRec1Array[0]^', '.', 'TDynArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('VArgTDynPDynTRec1Array[0]^[0]', 3, 80, []);
|
|
r := AddRecForArrFmtDef('VArgTDynPDynTRec1Array[0]^[1]', 3, 81, []);
|
|
r := AddPointerFmtDef ('VArgTDynPDynTRec1Array[1]', '(\^T|P)DynArrayTRec1', '^(\^T|P)DynArrayTRec1$', [fTpMtch]);
|
|
if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 070000) then UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddArrayFmtDef('VArgTDynPDynTRec1Array[1]^', '.', 'TDynArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('VArgTDynPDynTRec1Array[1]^[0]', 3, 85, []);
|
|
r := AddRecForArrFmtDef('VArgTDynPDynTRec1Array[1]^[1]', 3, 86, []);
|
|
//TDynPStatTRec1Array = array of ^TStatArrayTRec1;
|
|
r := AddArrayFmtDef('VArgTDynPStatTRec1Array', '.', 'TDynPStatTRec1Array', []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddPointerFmtDef ('VArgTDynPStatTRec1Array[0]', '(\^T|P)StatArrayTRec1', '(\^T|P)StatArrayTRec1$', [fTpMtch]);
|
|
r := AddArrayFmtDef('VArgTDynPStatTRec1Array[0]^', '.', 'TStatArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('VArgTDynPStatTRec1Array[0]^[3]', 3, 70, []);
|
|
r := AddRecForArrFmtDef('VArgTDynPStatTRec1Array[0]^[4]', 3, 71, []);
|
|
r := AddPointerFmtDef ('VArgTDynPStatTRec1Array[1]', '(\^T|P)StatArrayTRec1', '(\^T|P)StatArrayTRec1$', [fTpMtch]);
|
|
r := AddArrayFmtDef('VArgTDynPStatTRec1Array[1]^', '.', 'TStatArrayTRec1', []);
|
|
r := AddRecForArrFmtDef('VArgTDynPStatTRec1Array[1]^[3]', 3, 75, []);
|
|
r := AddRecForArrFmtDef('VArgTDynPStatTRec1Array[1]^[4]', 3, 76, []);
|
|
//TDynPDynTRec1NPArray = array of ^TDynArrayTRec1NP;
|
|
r := AddArrayFmtDef('VArgTDynPDynTRec1NPArray', '.', 'TDynPDynTRec1NPArray', []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddPointerFmtDef ('VArgTDynPDynTRec1NPArray[0]', '\^TDynArrayTRec1NP', '^TDynArrayTRec1NP', []);
|
|
if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 070000) then UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddArrayFmtDef('VArgTDynPDynTRec1NPArray[0]^', '.', 'TDynArrayTRec1NP', []);
|
|
r := AddRecForArrFmtDef('VArgTDynPDynTRec1NPArray[0]^[0]', 3, 500, []);
|
|
r := AddRecForArrFmtDef('VArgTDynPDynTRec1NPArray[0]^[1]', 3, 501, []);
|
|
r := AddPointerFmtDef ('VArgTDynPDynTRec1NPArray[1]', '\^TDynArrayTRec1NP', '^TDynArrayTRec1NP', []);
|
|
if (DebuggerInfo.Version > 0) and (DebuggerInfo.Version < 070000) then UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddArrayFmtDef('VArgTDynPDynTRec1NPArray[1]^', '.', 'TDynArrayTRec1NP', []);
|
|
r := AddRecForArrFmtDef('VArgTDynPDynTRec1NPArray[1]^[0]', 3, 505, []);
|
|
r := AddRecForArrFmtDef('VArgTDynPDynTRec1NPArray[1]^[1]', 3, 506, []);
|
|
//TDynPStatTRec1NPArray= array of ^TStatArrayTRec1NP;
|
|
r := AddArrayFmtDef('VArgTDynPStatTRec1NPArray', '.', 'TDynPStatTRec1NPArray', []);
|
|
UpdResMinFpc(r, stDwarf2All, 020600);
|
|
r := AddPointerFmtDef ('VArgTDynPStatTRec1NPArray[0]', '\^TStatArrayTRec1NP', '^TStatArrayTRec1NP', []);
|
|
r := AddArrayFmtDef('VArgTDynPStatTRec1NPArray[0]^', '.', 'TStatArrayTRec1NP', []);
|
|
r := AddRecForArrFmtDef('VArgTDynPStatTRec1NPArray[0]^[3]', 3, 510, []);
|
|
r := AddRecForArrFmtDef('VArgTDynPStatTRec1NPArray[0]^[4]', 3, 511, []);
|
|
r := AddPointerFmtDef ('VArgTDynPStatTRec1NPArray[1]', '\^TStatArrayTRec1NP', '^TStatArrayTRec1NP', []);
|
|
r := AddArrayFmtDef('VArgTDynPStatTRec1NPArray[1]^', '.', 'TStatArrayTRec1NP', []);
|
|
r := AddRecForArrFmtDef('VArgTDynPStatTRec1NPArray[1]^[3]', 3, 515, []);
|
|
r := AddRecForArrFmtDef('VArgTDynPStatTRec1NPArray[1]^[4]', 3, 516, []);
|
|
//
|
|
//TDynDynTRec2Array = array of TDynArrayTRec2;
|
|
//TDynDynPrec2Array = array of TDynArrayPRec2;
|
|
//TDynDynPPrec2Array = array of TDynArrayPPRec2; // double pointer
|
|
//TDynStatTRec2Array = array of TStatArrayTRec2;
|
|
//TDynStatPRec2Array = array of TStatArrayPRec2;
|
|
//TDynStatPPRec2Array = array of TStatArrayPPRec2; // double pointer
|
|
{%endregion DYN ARRAY of named arrays (VAR)}
|
|
{%endregion DYN ARRAY of named arrays}
|
|
|
|
|
|
|
|
|
|
//r := AddArrayFmtDef('Arg', '.', 'T', []);
|
|
//r := AddRecForArrFmtDef('Arg [0]', 3, 90, []);
|
|
|
|
|
|
// stat arrays of named arrays
|
|
|
|
// comma separated index
|
|
r := AddRecForArrFmtDef('GlobAStatDynDynArrayTRec2[4][0][1]', 2, 401, []);
|
|
r := AddRecForArrFmtDef('GlobAStatDynDynArrayTRec2[4,0][1]', 2, 401, []);
|
|
r := AddRecForArrFmtDef('GlobAStatDynDynArrayTRec2[4][0,1]', 2, 401, []);
|
|
r := AddRecForArrFmtDef('GlobAStatDynDynArrayTRec2[4,0,1]', 2, 401, []);
|
|
|
|
end;
|
|
|
|
procedure TTestWatches.AddExpectBreakFooMixInfo;
|
|
procedure AddTC(AVar, ATCast: string; AExpClass: String = ''; AFlgs: TWatchExpectationFlags = [];
|
|
AIntMember: String = ''; AIntValue: integer = 0);
|
|
begin
|
|
if AExpClass = '' then AExpClass := ATCast;
|
|
If ATCast <> ''
|
|
then Add(ATCast+'('+AVar+')', MatchClass(AExpClass, ''), skClass, AExpClass, AFlgs)
|
|
else Add(AVar, MatchClass(AExpClass, ''), skClass, AExpClass, AFlgs);
|
|
if AIntMember <> '' then
|
|
Add(ATCast+'('+AVar+').'+AIntMember, IntToStr(AIntValue), skSimple, M_Int, [fTpMtch]);
|
|
end;
|
|
procedure AddTCN(AVar, ATCast: string; AExpClass: String = ''; AFlgs: TWatchExpectationFlags = []);
|
|
begin
|
|
if AExpClass = '' then AExpClass := ATCast;
|
|
If ATCast <> ''
|
|
then Add(ATCast+'('+AVar+')', MatchClassNil(AExpClass), skClass, AExpClass, AFlgs)
|
|
else Add(AVar, MatchClassNil(AExpClass), skClass, AExpClass, AFlgs);
|
|
end;
|
|
begin
|
|
if not TestControlCanTest(ControlTestWatchMix) then exit;
|
|
FCurrentExpArray := @ExpectBreakFoo;
|
|
|
|
// Type Casting objects with mixed symbol type
|
|
AddTC('VarOTestTCast', '', 'TObject');
|
|
AddTC('VarOTestTCast', 'TObject', '');
|
|
AddTC('VarOTestTCast', 'TClassTCast', '', [], 'b', 0);
|
|
AddTC('VarOTestTCast', 'TClassTCast3', 'TClassTCast(3)?', [fTpMtch], 'b', 0);
|
|
|
|
AddTC('VarOTestTCastObj', '', 'TObject');
|
|
AddTC('VarOTestTCastObj', 'TObject', '');
|
|
AddTC('VarOTestTCastObj', 'TClassTCastObject', '');
|
|
|
|
AddTC('VarOTestTCastComp', '', 'TObject');
|
|
AddTC('VarOTestTCastComp', 'TObject', '');
|
|
AddTC('VarOTestTCastComp', 'TComponent', '');
|
|
AddTC('VarOTestTCastComp', 'TClassTCastComponent', '', [], 'b', 0);
|
|
|
|
AddTC('VarOTestTCast2', '', 'TObject');
|
|
AddTC('VarOTestTCast2', 'TObject', '');
|
|
AddTC('VarOTestTCast2', 'TClassTCast', '', [], 'b', 0);
|
|
AddTC('VarOTestTCast2', 'TClassTCast2', '', [], 'b', 0);
|
|
|
|
AddTC('VarOTestTCastUW1', '', 'TObject');
|
|
AddTC('VarOTestTCastUW1', 'TObject', '');
|
|
AddTC('VarOTestTCastUW1', 'TClassUW1Base', '');
|
|
AddTC('VarOTestTCastUW1', 'TClassTCastUW1', '');
|
|
|
|
AddTC('VarOTestTCastUW1Obj', '', 'TObject');
|
|
AddTC('VarOTestTCastUW1Obj', 'TObject', '');
|
|
AddTC('VarOTestTCastUW1Obj', 'TClassUW1BaseObject', '');
|
|
AddTC('VarOTestTCastUW1Obj', 'TClassTCastUW1Object', '');
|
|
|
|
AddTC('VarOTestTCastUW1Comp', '', 'TObject');
|
|
AddTC('VarOTestTCastUW1Comp', 'TObject', '');
|
|
AddTC('VarOTestTCastUW1Comp', 'TComponent', '');
|
|
AddTC('VarOTestTCastUW1Comp', 'TClassUW1BaseComponent', '');
|
|
AddTC('VarOTestTCastUW1Comp', 'TClassTCastUW1Component', '');
|
|
|
|
|
|
AddTC('VarCTestTCastComp', '', 'TComponent');
|
|
AddTC('VarCTestTCastComp', 'TObject', '');
|
|
AddTC('VarCTestTCastComp', 'TComponent', '');
|
|
AddTC('VarCTestTCastComp', 'TClassTCast', '');
|
|
|
|
AddTC('VarCTestTCastUW1Comp', '', 'TComponent');
|
|
AddTC('VarCTestTCastUW1Comp', 'TObject', '');
|
|
AddTC('VarCTestTCastUW1Comp', 'TComponent', '');
|
|
AddTC('VarCTestTCastUW1Comp', 'TClassUW1BaseComponent', '');
|
|
AddTC('VarCTestTCastUW1Comp', 'TClassTCastUW1Component', '');
|
|
|
|
|
|
AddTC('VarTestTCast', '', 'TClassTCast');
|
|
AddTC('VarTestTCast', 'TObject', '');
|
|
AddTC('VarTestTCast', 'TClassTCast', '');
|
|
AddTC('VarTestTCast', 'TClassTCast3', 'TClassTCast(3)?', [fTpMtch]);
|
|
|
|
AddTC('VarTestTCastObj', '', 'TClassTCastObject');
|
|
AddTC('VarTestTCastObj', 'TObject', '');
|
|
AddTC('VarTestTCastObj', 'TClassTCastObject', '');
|
|
|
|
AddTC('VarTestTCastComp', '', 'TClassTCastComponent');
|
|
AddTC('VarTestTCastComp', 'TObject', '');
|
|
AddTC('VarTestTCastComp', 'TComponent', '');
|
|
AddTC('VarTestTCastComp', 'TClassTCastComponent', '');
|
|
|
|
AddTC('VarTestTCast2', '', 'TClassTCast2');
|
|
AddTC('VarTestTCast2', 'TObject', '');
|
|
AddTC('VarTestTCast2', 'TClassTCast', '');
|
|
AddTC('VarTestTCast2', 'TClassTCast2', '');
|
|
|
|
AddTC('VarTestTCast3', '', 'TClassTCast(3)?', [fTpMtch]);
|
|
AddTC('VarTestTCast3', 'TObject', '');
|
|
AddTC('VarTestTCast3', 'TClassTCast', '');
|
|
|
|
AddTC('VarTestTCastUW1', '', 'TClassTCastUW1');
|
|
AddTC('VarTestTCastUW1', 'TObject', '');
|
|
AddTC('VarTestTCastUW1', 'TClassUW1Base', '');
|
|
AddTC('VarTestTCastUW1', 'TClassTCastUW1', '');
|
|
|
|
AddTC('VarTestTCastUW1Obj', '', 'TClassTCastUW1Object');
|
|
AddTC('VarTestTCastUW1Obj', 'TObject', '');
|
|
AddTC('VarTestTCastUW1Obj', 'TClassUW1BaseObject', '');
|
|
AddTC('VarTestTCastUW1Obj', 'TClassTCastUW1Object', '');
|
|
|
|
AddTC('VarTestTCastUW1Comp', '', 'TClassTCastUW1Component');
|
|
AddTC('VarTestTCastUW1Comp', 'TObject', '');
|
|
AddTC('VarTestTCastUW1Comp', 'TComponent', '');
|
|
AddTC('VarTestTCastUW1Comp', 'TClassUW1BaseComponent', '');
|
|
AddTC('VarTestTCastUW1Comp', 'TClassTCastUW1Component', '');
|
|
|
|
|
|
|
|
//AddTCN('VarNOTestTCast', '', 'TObject');
|
|
//AddTCN('VarNOTestTCast', 'TObject', '');
|
|
//AddTCN('VarNOTestTCast', 'TClassTCast', '');
|
|
//AddTCN('VarNOTestTCast', 'TClassTCast3', 'TClassTCast(3)?', [fTpMtch]);
|
|
|
|
|
|
// MIXED symbol info types
|
|
FCurrentExpArray := @ExpectBreakFooArray;
|
|
if FDoStatIntArray then
|
|
Add('VarStatIntArray', '10,[\s\r\n]+12,[\s\r\n]+14,[\s\r\n]+16,[\s\r\n]+18',
|
|
skSimple, 'TStatIntArray',
|
|
[]);
|
|
end;
|
|
|
|
procedure TTestWatches.AddExpectBreakClassMeth1;
|
|
begin
|
|
if not TestControlCanTest(ControlTestWatchAll) then exit;
|
|
FCurrentExpArray := @ExpectBreakClassMeth1;
|
|
|
|
AddFmtDef('publMember1', '^413$', skSimple, 'Integer|LongInt', [fTpMtch]);
|
|
AddFmtDef('protMember1', '^412$', skSimple, 'Integer|LongInt', [fTpMtch]);
|
|
AddFmtDef('privMember1', '^411$', skSimple, 'Integer|LongInt', [fTpMtch]);
|
|
|
|
AddFmtDef('self.publMember1', '^413$', skSimple, 'Integer|LongInt', [fTpMtch]);
|
|
AddFmtDef('self.protMember1', '^412$', skSimple, 'Integer|LongInt', [fTpMtch]);
|
|
AddFmtDef('self.privMember1', '^411$', skSimple, 'Integer|LongInt', [fTpMtch]);
|
|
|
|
end;
|
|
|
|
procedure TTestWatches.AddExpectBreakFooAndSubFoo;
|
|
procedure AddF(AnExpr: string;
|
|
AMtch: string; AKind: TDBGSymbolKind; ATpNm: string; AFlgs: TWatchExpectationFlags;
|
|
AStackFrame: Integer=0);
|
|
begin
|
|
FCurrentExpArray := @ExpectBreakFoo;
|
|
AddWatchExp(ExpectBreakFoo, AnExpr, AMtch, AKind, ATpNm, AFlgs, AStackFrame)
|
|
end;
|
|
procedure AddS(AnExpr: string;
|
|
AMtch: string; AKind: TDBGSymbolKind; ATpNm: string; AFlgs: TWatchExpectationFlags;
|
|
AStackFrame: Integer=0);
|
|
begin
|
|
FCurrentExpArray := @ExpectBreakSubFoo;
|
|
AddWatchExp(ExpectBreakSubFoo, AnExpr, AMtch, AKind, ATpNm, AFlgs, AStackFrame)
|
|
end;
|
|
begin
|
|
if not TestControlCanTest(ControlTestWatchCache) then exit;
|
|
// FCurrentExpArray := @ExpectBreakSubFoo;
|
|
|
|
AddS('VarCacheTest1', MatchRecord('TCacheTest', 'CTVal = 101'),
|
|
skRecord, 'TCacheTest', []);
|
|
AddF('VarCacheTest1', '<TCacheTest(Type)?> = \{.*(<|vptr\$)TObject>?.+CTVal = 201',
|
|
skClass, 'TCacheTest(Type)?', [fTpMtch]);
|
|
|
|
AddS('VarCacheTest2', '102', skSimple, M_Int, [fTpMtch], 0);
|
|
AddS('VarCacheTest2', '202', skSimple, M_Int, [fTpMtch], 1);
|
|
end;
|
|
|
|
procedure TTestWatches.DoDbgOutput(Sender: TObject; const AText: String);
|
|
begin
|
|
inherited DoDbgOutput(Sender, AText);
|
|
if FDbgOutPutEnable then
|
|
FDbgOutPut := FDbgOutPut + AText;
|
|
end;
|
|
|
|
procedure TTestWatches.DebugInteract(dbg: TGDBMIDebugger);
|
|
var s: string;
|
|
begin
|
|
readln(s);
|
|
while s <> '' do begin
|
|
dbg.TestCmd(s);
|
|
readln(s);
|
|
end;
|
|
end;
|
|
|
|
procedure TTestWatches.RunTestWatches(NamePreFix: String; TestExeName, ExtraOpts: String;
|
|
UsedUnits: array of TUsesDir);
|
|
|
|
var
|
|
dbg: TGDBMIDebugger;
|
|
Only: Integer;
|
|
OnlyName, OnlyNamePart: String;
|
|
|
|
function SkipTest(const Data: TWatchExpectation): Boolean;
|
|
begin
|
|
Result := True;
|
|
if Data.Result[SymbolType].Flgs * [fTstSkip, fTstSkipDwarf3] <> [] then exit;
|
|
Result := False;
|
|
end;
|
|
|
|
function MatchOnly(const Data: TWatchExpectation; Idx: Integer): Boolean;
|
|
begin
|
|
Result := True;
|
|
if ((Only >=0) and (Only <> Idx)) or
|
|
((OnlyName<>'') and (OnlyName <> Data.TestName)) or
|
|
((OnlyNamePart<>'') and (pos(OnlyNamePart, Data.TestName)<1))
|
|
then Result := False;
|
|
end;
|
|
|
|
var
|
|
i: Integer;
|
|
|
|
begin
|
|
TestBaseName := NamePreFix;
|
|
if not HasTestArraysData then exit;
|
|
Only := StrToIntDef(TestControlGetTestPattern, -1);
|
|
OnlyNamePart := '';OnlyName := '';
|
|
if Only < 0
|
|
then begin
|
|
OnlyName := TestControlGetTestPattern;
|
|
if (OnlyName <> '') and (OnlyName[1]='*') then begin
|
|
OnlyNamePart := copy(OnlyName, 2, length(OnlyName));
|
|
OnlyName := '';
|
|
end;
|
|
end;
|
|
|
|
|
|
try
|
|
TestCompile(AppDir + 'WatchesPrg.pas', TestExeName, UsedUnits, '', ExtraOpts);
|
|
except
|
|
on e: Exception do begin
|
|
TestTrue('Compile error: ' + e.Message, False);
|
|
exit;
|
|
end;
|
|
end;
|
|
|
|
dbg := StartGDB(AppDir, TestExeName);
|
|
try
|
|
try
|
|
FWatches := Watches.Watches;
|
|
|
|
with dbg.BreakPoints.Add('WatchesPrg.pas', BREAK_LINE_FOOFUNC) do begin
|
|
InitialEnabled := True;
|
|
Enabled := True;
|
|
end;
|
|
with dbg.BreakPoints.Add('WatchesPrg.pas', BREAK_LINE_FOOFUNC_NEST) do begin
|
|
InitialEnabled := True;
|
|
Enabled := True;
|
|
end;
|
|
with dbg.BreakPoints.Add('WatchesPrg.pas', BREAK_LINE_FOOFUNC_ARRAY) do begin
|
|
InitialEnabled := True;
|
|
Enabled := True;
|
|
end;
|
|
with dbg.BreakPoints.Add('WatchesPrgStruct.inc', BREAK_LINE_Class_Meth1) do begin
|
|
InitialEnabled := True;
|
|
Enabled := True;
|
|
end;
|
|
|
|
|
|
if dbg.State = dsError then
|
|
Fail(' Failed Init');
|
|
|
|
(* Create all watches *)
|
|
AddWatches(ExpectBreakFoo, FWatches, Only, OnlyName, OnlyNamePart);
|
|
AddWatches(ExpectBreakSubFoo, FWatches, Only, OnlyName, OnlyNamePart);
|
|
AddWatches(ExpectBreakFooArray, FWatches, Only, OnlyName, OnlyNamePart);
|
|
AddWatches(ExpectBreakClassMeth1, FWatches, Only, OnlyName, OnlyNamePart);
|
|
|
|
(* Start debugging *)
|
|
dbg.ShowConsole := True;
|
|
dbg.Run;
|
|
|
|
if TestTrue('State=Pause', dbg.State = dsPause)
|
|
then begin
|
|
(* Hit first breakpoint: BREAK_LINE_FOOFUNC_NEST SubFoo -- (1st loop) Called with none nil data *)
|
|
|
|
TestWatchList('Brk1', ExpectBreakSubFoo, dbg, Only, OnlyName, OnlyNamePart);
|
|
|
|
dbg.Run;
|
|
end
|
|
else TestTrue('Hit BREAK_LINE_FOOFUNC_NEST', False);
|
|
|
|
if TestTrue('State=Pause', dbg.State = dsPause)
|
|
then begin
|
|
(* Hit 2nd breakpoint: BREAK_LINE_FOOFUNC Foo -- (1st loop) Called with none nil data *)
|
|
|
|
FDbgOutPutEnable := True;
|
|
for i := low(ExpectBreakFooGdb) to high(ExpectBreakFooGdb) do begin
|
|
if not MatchOnly(ExpectBreakFooGdb[i], i) then continue;
|
|
if not SkipTest(ExpectBreakFooGdb[i]) then begin
|
|
FDbgOutPut := '';
|
|
dbg.TestCmd(ExpectBreakFooGdb[i].Expression);
|
|
TestWatch('Brk2 Direct Gdb '+IntToStr(i)+' ', dbg, nil, ExpectBreakFooGdb[i], FDbgOutPut);
|
|
end;
|
|
end;
|
|
FDbgOutPutEnable := False;
|
|
|
|
for i := low(ExpectBreakFoo) to high(ExpectBreakFoo) do begin
|
|
if not MatchOnly(ExpectBreakFoo[i], i) then continue;
|
|
if not SkipTest(ExpectBreakFoo[i]) then
|
|
TestWatch('Brk2 '+IntToStr(i)+' ', dbg, ExpectBreakFoo[i].TheWatch, ExpectBreakFoo[i]);
|
|
end;
|
|
|
|
dbg.Run;
|
|
end
|
|
else TestTrue('Hit BREAK_LINE_FOOFUNC', False);
|
|
|
|
if TestTrue('State=Pause', dbg.State = dsPause)
|
|
then begin
|
|
(* Hit 2nd breakpoint: BREAK_LINE_FOOFUNC_ARRAY SubFoo_Watches -- (1st loop) Called with none nil data *)
|
|
|
|
TestWatchList('Brk3', ExpectBreakFooArray, dbg, Only, OnlyName, OnlyNamePart);
|
|
|
|
dbg.Run;
|
|
end
|
|
else TestTrue('Hit BREAK_LINE_FOOFUNC_ARRAY', False);
|
|
|
|
|
|
if TestTrue('State=Pause', dbg.State = dsPause)
|
|
then begin
|
|
(* Hit 2nd breakpoint: BREAK_LINE_Class_Meth1 *)
|
|
|
|
TestWatchList('Brk3', ExpectBreakClassMeth1, dbg, Only, OnlyName, OnlyNamePart);
|
|
|
|
dbg.Run;
|
|
end
|
|
else TestTrue('Hit BREAK_LINE_Class_Meth1', False);
|
|
|
|
// TODO: 2nd round, with NIL data
|
|
//DebugInteract(dbg);
|
|
|
|
dbg.Stop;
|
|
except
|
|
on e: Exception do begin
|
|
TestTrue('Error: ' + e.Message, False);
|
|
exit;
|
|
end;
|
|
end;
|
|
finally
|
|
dbg.Done;
|
|
CleanGdb;
|
|
dbg.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TTestWatches.TestWatches;
|
|
var
|
|
TestExeName: string;
|
|
UsedUnits: TUsesDir;
|
|
begin
|
|
if SkipTest then exit;
|
|
if not TestControlCanTest(ControlTestWatch) then exit;
|
|
|
|
FDoStatIntArray := TestControlCanTest(ControlTestWatchUnstable);
|
|
// GDB 7.0 has issues with "array of int"
|
|
FDoStatIntArray := FDoStatIntArray and not (DebuggerInfo.Version = 70000);
|
|
|
|
ClearTestErrors;
|
|
|
|
ClearAllTestArrays;
|
|
AddExpectBreakFooGdb;
|
|
AddExpectBreakFooAll;
|
|
AddExpectBreakFooArray;
|
|
//AddExpectBreakFooMixInfo;
|
|
AddExpectBreakFooAndSubFoo;
|
|
AddExpectBreakClassMeth1;
|
|
RunTestWatches('', TestExeName, '', []);
|
|
|
|
if TestControlCanTest(ControlTestWatchMix)
|
|
then begin
|
|
|
|
ClearAllTestArrays;
|
|
AddExpectBreakFooMixInfo;
|
|
with UsedUnits do begin
|
|
DirName:= AppDir + 'u1' + DirectorySeparator + 'unitw1.pas';
|
|
ExeId:= '';
|
|
SymbolType:= stNone;
|
|
ExtraOpts:= '';
|
|
NamePostFix:= ''
|
|
end;
|
|
RunTestWatches('unitw1=none', TestExeName, '-dUSE_W1', [UsedUnits]);
|
|
|
|
if TestControlCanTest(ControlTestWatchMixAll)
|
|
then begin
|
|
if (stStabs in CompilerInfo.SymbolTypes) and (stStabs in DebuggerInfo.SymbolTypes)
|
|
then begin
|
|
ClearAllTestArrays;
|
|
AddExpectBreakFooMixInfo;
|
|
with UsedUnits do begin
|
|
DirName:= AppDir + 'u1' + DirectorySeparator + 'unitw1.pas';
|
|
ExeId:= '';
|
|
SymbolType:= stStabs;
|
|
ExtraOpts:= '';
|
|
NamePostFix:= ''
|
|
end;
|
|
RunTestWatches('unitw1=stabs', TestExeName, '-dUSE_W1', [UsedUnits]);
|
|
end;
|
|
|
|
if (stDwarf in CompilerInfo.SymbolTypes) and (stDwarf in DebuggerInfo.SymbolTypes)
|
|
then begin
|
|
ClearAllTestArrays;
|
|
AddExpectBreakFooMixInfo;
|
|
with UsedUnits do begin
|
|
DirName:= AppDir + 'u1' + DirectorySeparator + 'unitw1.pas';
|
|
ExeId:= '';
|
|
SymbolType:= stDwarf;
|
|
ExtraOpts:= '';
|
|
NamePostFix:= ''
|
|
end;
|
|
RunTestWatches('unitw1=dwarf', TestExeName, '-dUSE_W1', [UsedUnits]);
|
|
end;
|
|
|
|
if (stDwarf3 in CompilerInfo.SymbolTypes) and (stDwarf3 in DebuggerInfo.SymbolTypes)
|
|
then begin
|
|
ClearAllTestArrays;
|
|
AddExpectBreakFooMixInfo;
|
|
with UsedUnits do begin
|
|
DirName:= AppDir + 'u1' + DirectorySeparator + 'unitw1.pas';
|
|
ExeId:= '';
|
|
SymbolType:= stDwarf3;
|
|
ExtraOpts:= '';
|
|
NamePostFix:= ''
|
|
end;
|
|
RunTestWatches('unitw1=dwarf_3', TestExeName, '-dUSE_W1', [UsedUnits]);
|
|
end;
|
|
end;
|
|
|
|
end;
|
|
|
|
AssertTestErrors;
|
|
end;
|
|
|
|
|
|
|
|
initialization
|
|
|
|
RegisterDbgTest(TTestWatches);
|
|
|
|
ControlTestWatch := TestControlRegisterTest('TTestWatch');
|
|
ControlTestWatchUnstable := TestControlRegisterTest('Unstable', ControlTestWatch);
|
|
ControlTestWatchGdb := TestControlRegisterTest('Gdb', ControlTestWatch);
|
|
ControlTestWatchAll := TestControlRegisterTest('All', ControlTestWatch);
|
|
ControlTestWatchMix := TestControlRegisterTest('Mix', ControlTestWatch);
|
|
ControlTestWatchMixAll := TestControlRegisterTest('All', ControlTestWatchMix);
|
|
ControlTestWatchCache := TestControlRegisterTest('Cache', ControlTestWatch);
|
|
|
|
end.
|
|
|