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

REVERT: 41adb276bb "Remove obsolete checks for FPC versions earlier then 3.0."

Browse Source 
- Not obsolete for the testcase
This commit is contained in:
Martin 2023-07-27 12:53:21 +02:00
parent e259355d76
commit ae263321c1
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -344,15 +344,20 @@ type
// recursive declaration
TSize = record
cx : Longint; cy : Longint;
public
constructor Create(asz :TSize);
public
{$if FPC_FULLVERSION >= 30000}
constructor Create(asz :TSize);
{$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}
// Recursive pointers
TRecursePtrA1 = ^TRecursePtrA2;
@ -529,7 +534,10 @@ var
MyStringList: TMyStringList;
U8Data1, U8Data2: Utf8String;
{$if FPC_FULLVERSION >= 30000}
dummy1: PFuncSelfRef;
{$ENDIF}
const
(* LOCATION: global const *)
@ -599,8 +607,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;
@ -973,7 +983,10 @@ begin
VarCastRecl4.l4 := 13;
VarCastRecq2.q := $0010001100120013;
VarCastRecq2.q2 := $0020002100220023;
{$if FPC_FULLVERSION >= 30000}
dummy1 := nil;
{$ENDIF}
with ModifyTestByte do begin pre := qword($9696969696969696); post := $69; val := $01; end;
with ModifyTestWord do begin pre := qword($9696969696969696); post := $69; val := $0101; end;