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

FpDebug: find symbol for fpc_raiseexception (and similar) independent of case.

Browse Source
This commit is contained in:
Martin 2023-11-28 22:22:03 +01:00
parent ebd45b7c62
commit 5efaac3f2f
4 changed files with 36 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
components/fpdebug/fpdbgclasses.pp
View File

@ -549,7 +549,7 @@ type
procedure UpdateState; override;
procedure UpdateForLibraryLoaded(ALib: TDbgLibrary); override;
public
constructor Create(const AProcess: TDbgProcess; const AFuncName: String; AnEnabled: Boolean; ASymInstance: TDbgInstance = nil); virtual;
constructor Create(const AProcess: TDbgProcess; const AFuncName: String; AnEnabled: Boolean; ASymInstance: TDbgInstance = nil; AIgnoreCase: Boolean = False); virtual;
end;
{ TFpInternalBreakpointAtFileLine }
@ -614,7 +614,7 @@ type
function GetPointerSize: Integer;
function GetLineAddresses(AFileName: String; ALine: Cardinal; var AResultList: TDBGPtrArray): Boolean;
function FindProcSymbol(const AName: String): TFpSymbol; overload;
function FindProcSymbol(const AName: String; AIgnoreCase: Boolean = False): TFpSymbol; overload;
function FindProcSymbol(AAdress: TDbgPtr): TFpSymbol; overload;
protected
FDbgInfo: TDbgInfo;
@ -793,7 +793,7 @@ type
function AddBreak(const ALocation: TDBGPtr; AnEnabled: Boolean = True): TFpDbgBreakpoint; overload;
function AddBreak(const ALocation: TDBGPtrArray; AnEnabled: Boolean = True): TFpDbgBreakpoint; overload;
function AddBreak(const AFileName: String; ALine: Cardinal; AnEnabled: Boolean = True; ASymInstance: TDbgInstance = nil): TFpDbgBreakpoint; overload;
function AddBreak(const AFuncName: String; AnEnabled: Boolean = True; ASymInstance: TDbgInstance = nil): TFpDbgBreakpoint; overload;
function AddBreak(const AFuncName: String; AnEnabled: Boolean = True; ASymInstance: TDbgInstance = nil; AIgnoreCase: Boolean = False): TFpDbgBreakpoint; overload;
function AddWatch(const ALocation: TDBGPtr; ASize: Cardinal; AReadWrite: TDBGWatchPointKind;
AScope: TDBGWatchPointScope): TFpInternalWatchpoint;
property WatchPointData: TFpWatchPointData read FWatchPointData;
@ -807,7 +807,7 @@ type
*)
function FindProcSymbol(const AName: String): TFpSymbol; overload; // deprecated 'backward compatible / use FindProcSymbol(AName, TheDbgProcess)';
function FindProcSymbol(const AName: String; ASymInstance: TDbgInstance): TFpSymbol; overload;
procedure FindProcSymbol(const AName: String; ASymInstance: TDbgInstance; out ASymList: TFpSymbolArray);
procedure FindProcSymbol(const AName: String; ASymInstance: TDbgInstance; out ASymList: TFpSymbolArray; AIgnoreCase: Boolean = False);
function FindProcSymbol(const AName, ALibraryName: String; IsFullLibName: Boolean = True): TFpSymbol; overload;
function FindProcSymbol(AAdress: TDbgPtr): TFpSymbol; overload;
function FindSymbolScope(AThreadId, AStackFrame: Integer): TFpDbgSymbolScope;
@ -1936,14 +1936,15 @@ end;
{ TDbgInstance }
function TDbgInstance.FindProcSymbol(const AName: String): TFpSymbol;
function TDbgInstance.FindProcSymbol(const AName: String; AIgnoreCase: Boolean
): TFpSymbol;
begin
if FDbgInfo <> nil then
Result := FDbgInfo.FindProcSymbol(AName)
else
Result := nil;
if (Result = nil) and (SymbolTableInfo <> nil) then
Result := SymbolTableInfo.FindProcSymbol(AName);
Result := SymbolTableInfo.FindProcSymbol(AName, AIgnoreCase);
end;
constructor TDbgInstance.Create(const AProcess: TDbgProcess);
@ -2092,9 +2093,9 @@ begin
end;
function TDbgProcess.AddBreak(const AFuncName: String; AnEnabled: Boolean;
ASymInstance: TDbgInstance): TFpDbgBreakpoint;
ASymInstance: TDbgInstance; AIgnoreCase: Boolean): TFpDbgBreakpoint;
begin
Result := TFpInternalBreakpointAtSymbol.Create(Self, AFuncName, AnEnabled, ASymInstance);
Result := TFpInternalBreakpointAtSymbol.Create(Self, AFuncName, AnEnabled, ASymInstance, AIgnoreCase);
AfterBreakpointAdded(Result);
end;
@ -2126,7 +2127,8 @@ begin
end;
procedure TDbgProcess.FindProcSymbol(const AName: String;
ASymInstance: TDbgInstance; out ASymList: TFpSymbolArray);
ASymInstance: TDbgInstance; out ASymList: TFpSymbolArray; AIgnoreCase: Boolean
);
var
Lib: TDbgLibrary;
Sym: TFpSymbol;
@ -2134,21 +2136,21 @@ begin
// TODO: find multiple symbols within the same DbgInfo
ASymList := nil;
if ASymInstance <> nil then begin
Sym := ASymInstance.FindProcSymbol(AName);
Sym := ASymInstance.FindProcSymbol(AName, AIgnoreCase);
if Sym <> nil then begin
SetLength(ASymList, 1);
ASymList[0] := Sym;
end;
end
else begin
Sym := FindProcSymbol(AName);
Sym := FindProcSymbol(AName, AIgnoreCase);
if Sym <> nil then begin
SetLength(ASymList, 1);
ASymList[0] := Sym;
end;
for Lib in FLibMap do begin
Sym := Lib.FindProcSymbol(AName);
Sym := Lib.FindProcSymbol(AName, AIgnoreCase);
if Sym <> nil then begin
SetLength(ASymList, 1);
ASymList[0] := Sym;
@ -3887,7 +3889,8 @@ begin
end;
constructor TFpInternalBreakpointAtSymbol.Create(const AProcess: TDbgProcess;
const AFuncName: String; AnEnabled: Boolean; ASymInstance: TDbgInstance);
const AFuncName: String; AnEnabled: Boolean; ASymInstance: TDbgInstance;
AIgnoreCase: Boolean);
var
a: TDBGPtrArray;
AProcList: TFpSymbolArray;
@ -3896,7 +3899,7 @@ begin
FFuncName := AFuncName;
FSymInstance := ASymInstance;
AProcess.FindProcSymbol(AFuncName, ASymInstance, AProcList);
AProcess.FindProcSymbol(AFuncName, ASymInstance, AProcList, AIgnoreCase);
SetLength(a, Length(AProcList));
for i := 0 to Length(AProcList) - 1 do begin
a[i] := AProcList[i].Address.Address;

5
components/fpdebug/fpdbginfo.pas
View File

@ -690,7 +690,7 @@ type
*)
function FindSymbolScope(ALocationContext: TFpDbgLocationContext; {%H-}AAddress: TDbgPtr = 0): TFpDbgSymbolScope; virtual;
function FindProcSymbol(AAddress: TDbgPtr): TFpSymbol; virtual; overload;
function FindProcSymbol(const {%H-}AName: String): TFpSymbol; virtual; overload;
function FindProcSymbol(const {%H-}AName: String; AIgnoreCase: Boolean = False): TFpSymbol; virtual; overload;
function FindLineInfo(AAddress: TDbgPtr): TFpSymbol; virtual;
function FindProcStartEndPC(const AAddress: TDbgPtr; out AStartPC, AEndPC: TDBGPtr): boolean; virtual;
@ -2115,7 +2115,8 @@ begin
Result := nil;
end;
function TDbgInfo.FindProcSymbol(const AName: String): TFpSymbol;
function TDbgInfo.FindProcSymbol(const AName: String; AIgnoreCase: Boolean
): TFpSymbol;
begin
Result := nil;
end;

18
components/fpdebug/fpdbgsymtablecontext.pas
View File

@ -61,7 +61,7 @@ type
constructor Create(ALoaderList: TDbgImageLoaderList; AMemManager: TFpDbgMemManager; ALibName: String);
destructor Destroy; override;
function FindSymbolScope(ALocationContext: TFpDbgLocationContext; AAddress: TDbgPtr = 0): TFpDbgSymbolScope; override;
function FindProcSymbol(const AName: String): TFpSymbol; override; overload;
function FindProcSymbol(const AName: String; AIgnoreCase: Boolean = False): TFpSymbol; override; overload;
function FindProcSymbol(AnAdress: TDbgPtr): TFpSymbol; overload;
end;
@ -195,11 +195,23 @@ begin
Result := TFpSymbolContext.Create(ALocationContext, Self);
end;
function TFpSymbolInfo.FindProcSymbol(const AName: String): TFpSymbol;
function TFpSymbolInfo.FindProcSymbol(const AName: String; AIgnoreCase: Boolean
): TFpSymbol;
var
s: String;
i: integer;
begin
i := FSymbolList.IndexOf(AName);
if AIgnoreCase then begin
s := UpperCase(AName);
i := FSymbolList.Count - 1;
while i >= 0 do begin
if UpperCase(FSymbolList.Keys[i]) = s then
break;
dec(i);
end;
end
else
i := FSymbolList.IndexOf(AName);
if i >= 0 then
Result := TFpSymbolTableProc.Create(AName, FSymbolList.DataPtr[i]^.Addr)
else

2
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -4364,7 +4364,7 @@ end;
procedure TFpDebugDebugger.DoAddBreakFuncLib;
begin
FCacheBreakpoint := FDbgController.CurrentProcess.AddBreak(FCacheFileName, FCacheBoolean, FCacheLib);
FCacheBreakpoint := FDbgController.CurrentProcess.AddBreak(FCacheFileName, FCacheBoolean, FCacheLib, True);
end;
procedure TFpDebugDebugger.DoAddBreakLocation;