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

FpDebug: test, fixed for pascal parser new context

Browse Source 
(cherry picked from commit 35b94fb26f)
This commit is contained in:
Martin 2024-11-10 22:53:47 +01:00
parent e935913516
commit 182c0aa557
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/test/testpascalparser.pas
View File

@ -38,10 +38,12 @@ procedure TTestPascalParser.CreateExpr(t: string; ExpValid: Boolean;
SkipExpValid: Boolean); SkipExpValid: Boolean);
var var
s: String; s: String;
ctx: TFpDbgLocationContext; // TFpDbgSimpleLocationContext ctx: TFpDbgSimpleLocationContext;
sc: TFpDbgSymbolScope; sc: TFpDbgSymbolScope;
mm: TFpDbgMemManager;
begin begin
ctx := TFpDbgLocationContext.Create(); mm := TFpDbgMemManager.Create(nil, nil, nil, nil);
ctx := TFpDbgSimpleLocationContext.Create(mm, 0, 8, 0, 0);
sc := TFpDbgSymbolScope.Create(ctx); sc := TFpDbgSymbolScope.Create(ctx);
FreeAndNil(CurrentTestExprObj); FreeAndNil(CurrentTestExprObj);
CurrentTestExprText := t; CurrentTestExprText := t;