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

FpDebug: allow calling functions from function-pointer variables. (Not yet method variables)

Browse Source
This commit is contained in:
Martin 2023-02-12 21:30:15 +01:00
parent 9569f7beff
commit 57da4cd7fd
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpdebug/fpdbgdwarf.pas
View File

@ -1197,9 +1197,12 @@ begin
Result := InvalidLoc; Result := InvalidLoc;
if (FDataSymbol = nil) then if (FDataSymbol = nil) then
exit; exit;
assert(FDataSymbol is TFpSymbolDwarfDataProc, 'TFpValueDwarfSubroutine.GetEntryPCAddress: FDataSymbol is TFpSymbolDwarfDataProc'); if FDataSymbol is TFpSymbolDwarfDataProc then begin
if not TFpSymbolDwarfDataProc(FDataSymbol).GetEntryPCAddress(Self, Result) then if not TFpSymbolDwarfDataProc(FDataSymbol).GetEntryPCAddress(Self, Result) then
Result := InvalidLoc; Result := InvalidLoc;
end
else
Result := DataAddress;
end; end;
{ TFpDwarfDefaultSymbolClassMap } { TFpDwarfDefaultSymbolClassMap }

2
components/fpdebug/fppascalparser.pas
View File

@ -1654,7 +1654,7 @@ begin
if (tmp = nil) or (not Expression.Valid) then if (tmp = nil) or (not Expression.Valid) then
exit; exit;
if (tmp.DbgSymbol <> nil) and (tmp.DbgSymbol.Kind = skFunction) then begin if (tmp.DbgSymbol <> nil) and (tmp.DbgSymbol.Kind in [skFunction, skFunctionRef]) then begin
if not Assigned(Expression.OnFunctionCall) then begin if not Assigned(Expression.OnFunctionCall) then begin
SetError('calling functions not allowed'); SetError('calling functions not allowed');
exit; exit;