mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 12:29:29 +02:00
FpDebug: test
git-svn-id: trunk@62039 -
This commit is contained in:
parent
459694b2f8
commit
9db76fad42
@ -1147,6 +1147,8 @@ begin
|
||||
t.Add('TMYSTRINGLIST(TMyClass(MyClass1).FMyStringList).FLIST^[0]', weMatch('FString', skRecord) ).IgnTypeName();
|
||||
t.Add('TMYSTRINGLIST(TMyClass(MyClass2).FMyStringList).FLIST^[0]', weMatch('FString', skRecord) ).IgnTypeName();
|
||||
|
||||
t.Add('TSize', 'TSize', weMatch('.', skType)).AddFlag(ehNoTypeInfo); // make sure no deep recorsion...
|
||||
|
||||
t.Add('EnVal1', 'EnVal1', weMatch('EnVal1 *:?= *0', skEnumValue));
|
||||
t.Add('EnVal2', 'EnVal2', weMatch('EnVal2 *:?= *1', skEnumValue));
|
||||
t.Add('EnVal3', 'EnVal3', weMatch('EnVal3 *:?= *2', skEnumValue));
|
||||
|
@ -8,6 +8,7 @@
|
||||
*)
|
||||
program WatchesValuePrg;
|
||||
{$LONGSTRINGS ON}
|
||||
{$modeswitch advancedrecords}
|
||||
|
||||
uses sysutils, Classes;
|
||||
|
||||
@ -208,6 +209,13 @@ type
|
||||
BitSize: TBitSize; // Must have the same sign as Size
|
||||
end;
|
||||
|
||||
// recursive declaration
|
||||
TSize = record
|
||||
cx : Longint; cy : Longint;
|
||||
public
|
||||
constructor Create(asz :TSize);
|
||||
end;
|
||||
|
||||
TFunc1 = function(SomeValue, Foo: Integer; Bar: Word; X: Byte): Boolean;
|
||||
TProc1 = procedure();
|
||||
TMeth1 = function(AVal: Integer): Boolean of object;
|
||||
@ -328,6 +336,8 @@ var
|
||||
TEST_PREPOCESS(WatchesValuePrgIdent.inc, pre__=gv_ptrlist_, "_OP_=:PPointerList;//", "_O2_=:PPointerList;//" )
|
||||
|
||||
|
||||
constructor TSize.Create(asz :TSize);
|
||||
begin end;
|
||||
constructor TObjectCreate3Int64.Create;
|
||||
begin end;
|
||||
destructor TObjectCreate3Int64.Destroy;
|
||||
|
Loading…
Reference in New Issue
Block a user