From 182c0aa557896174baa799bcc50eef33f4275f1a Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Sun, 10 Nov 2024 22:53:47 +0100
Subject: [PATCH] FpDebug: test, fixed for pascal parser new context

(cherry picked from commit 35b94fb26fff459b74e1f01478d9a033884ec8f9)
---
 components/fpdebug/test/testpascalparser.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/components/fpdebug/test/testpascalparser.pas b/components/fpdebug/test/testpascalparser.pas
index 90fd254f77..cc7e927544 100644
--- a/components/fpdebug/test/testpascalparser.pas
+++ b/components/fpdebug/test/testpascalparser.pas
@@ -38,10 +38,12 @@ procedure TTestPascalParser.CreateExpr(t: string; ExpValid: Boolean;
   SkipExpValid: Boolean);
 var
   s: String;
-  ctx: TFpDbgLocationContext; // TFpDbgSimpleLocationContext
+  ctx: TFpDbgSimpleLocationContext;
   sc: TFpDbgSymbolScope;
+  mm: TFpDbgMemManager;
 begin
-  ctx := TFpDbgLocationContext.Create();
+  mm := TFpDbgMemManager.Create(nil, nil, nil, nil);
+  ctx := TFpDbgSimpleLocationContext.Create(mm, 0, 8, 0, 0);
   sc := TFpDbgSymbolScope.Create(ctx);
   FreeAndNil(CurrentTestExprObj);
   CurrentTestExprText := t;