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

fpdebug test - ifdef 2.6.4

Browse Source 
git-svn-id: trunk@63767 -
This commit is contained in:
martin 2020-08-17 21:50:31 +00:00
parent 7924956a5a
commit 83816792fb
2 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -835,6 +835,7 @@ for i := StartIdx to t.Count-1 do
t.Add(AName, p+'Obj3'+e, weObject([weInteger(-22).N('a'), weInteger(44).N('b'), weInteger(4000+n).N('c')],
'TObject3Int64'))
.Skip(stDwarf3Up) // fixed in fpc 3.3 with .SkipKind since it reports skRecord
.IgnKind([], Compiler.Version < 029900)
.SkipIf(ALoc = tlPointerAny);
t.Add(AName, p+'Obj3Ex'+e, weObject([weInteger(-22).N('a'), weInteger(44).N('b'), weInteger(4100+n).N('c'), weInteger(555).N('d')],
'TObject3Int64Ex'))
@ -1150,8 +1151,10 @@ begin
// make sure no deep recorsion...
t.Add('TSize', 'TSize', weMatch('.', skType)).AddFlag(ehNoTypeInfo);
t.Add('TFuncSelfRef', 'TFuncSelfRef', weMatch('.', skType)).AddFlag(ehNoTypeInfo);
t.Add('PFuncSelfRef', 'PFuncSelfRef', weMatch('.', skType)).AddFlag(ehNoTypeInfo);
t.Add('TFuncSelfRef', 'TFuncSelfRef', weMatch('.', skType)).AddFlag(ehNoTypeInfo)
.SkipIf(Compiler.Version < 029900);
t.Add('PFuncSelfRef', 'PFuncSelfRef', weMatch('.', skType)).AddFlag(ehNoTypeInfo)
.SkipIf(Compiler.Version < 029900);
t.Add('EnVal1', 'EnVal1', weMatch('EnVal1 *:?= *0', skEnumValue));
t.Add('EnVal2', 'EnVal2', weMatch('EnVal2 *:?= *1', skEnumValue));

12
components/lazdebuggers/lazdebugtestbase/testapps/WatchesValuePrg.pas
View File

@ -222,14 +222,18 @@ type
TSize = record
cx : Longint; cy : Longint;
public
{$if FPC_FULLVERSION >= 30000}
constructor Create(asz :TSize);
end;
{$ENDIF}
end;
TFunc1 = function(SomeValue, Foo: Integer; Bar: Word; X: Byte): Boolean;
TProc1 = procedure();
TMeth1 = function(AVal: Integer): Boolean of object;
{$if FPC_FULLVERSION >= 30000}
PFuncSelfRef = ^TFuncSelfRef;
TFuncSelfRef = function(SomeValue, Foo: PFuncSelfRef): PFuncSelfRef;
{$ENDIF}
type
(* LOCATION: TYPE *)
@ -287,7 +291,9 @@ var
MyStringItemList: TMyStringItemListShort;
MyStringList: TMyStringList;
{$if FPC_FULLVERSION >= 30000}
dummy1: PFuncSelfRef;
{$ENDIF}
const
(* LOCATION: global const *)
@ -349,8 +355,10 @@ var
TEST_PREPOCESS(WatchesValuePrgIdent.inc, pre__=gv_ptrlist_, "_OP_=:PPointerList;//", "_O2_=:PPointerList;//" )
{$if FPC_FULLVERSION >= 30000}
constructor TSize.Create(asz :TSize);
begin end;
{$endif}
constructor TObjectCreate3Int64.Create;
begin end;
destructor TObjectCreate3Int64.Destroy;
@ -436,7 +444,9 @@ begin
PByteDummy := nil;
SomeFunc1(1,1,1,1);
SomeProc1();
{$if FPC_FULLVERSION >= 30000}
dummy1 := nil;
{$ENDIF}
(* use global const / value in "gv" will be overriden... *)
TEST_PREPOCESS(WatchesValuePrgIdent.inc,pre__=gv, {e}={, "//@@=} :=", _pre3_=gc, _BLOCK_=TestAssignGC)