diff --git a/components/lazdebuggers/lazdebugtestbase/testapps/WatchesValuePrg.pas b/components/lazdebuggers/lazdebugtestbase/testapps/WatchesValuePrg.pas
index 49be647cf5..e6504f5268 100644
--- a/components/lazdebuggers/lazdebugtestbase/testapps/WatchesValuePrg.pas
+++ b/components/lazdebuggers/lazdebugtestbase/testapps/WatchesValuePrg.pas
@@ -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;