paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 12:40:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: Raise an exception in a seemingly unused function FindFullFilenameSrc.

Browse Source 
git-svn-id: trunk@55547 -
This commit is contained in:
juha 2017-07-20 14:23:37 +00:00
parent c94618ffa5
commit 9fae108464
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/debugmanager.pas
View File

@ -576,7 +576,7 @@ end;
// Helper function for TDebugManager.GetFullFilename. // Helper function for TDebugManager.GetFullFilename.
function FindFullFilenameSrc(const AUnitinfo: TDebuggerUnitInfo): boolean; function FindFullFilenameSrc(const AUnitinfo: TDebuggerUnitInfo): boolean;
var {var
SrcUnitName: String; SrcUnitName: String;
SrcInFilename: String; SrcInFilename: String;
SrcFilename: String; SrcFilename: String;
@ -584,9 +584,11 @@ var
ProcDef: String; ProcDef: String;
CurCodeTool: TCodeTool; CurCodeTool: TCodeTool;
CurCodeNode: TCodeTreeNode; CurCodeNode: TCodeTreeNode;
CodePos: TCodeXYPosition; CodePos: TCodeXYPosition; }
begin begin
Result:=false; DebugLn('FindFullFilenameSrc was called after all in TDebugManager.GetFullFilename.');
raise Exception.Create('FindFullFilenameSrc was called after all in TDebugManager.GetFullFilename.');
{ Result:=false;
// search unit in project unit path // search unit in project unit path
SrcUnitName := AUnitinfo.UnitName; SrcUnitName := AUnitinfo.UnitName;
SrcInFilename := ''; SrcInFilename := '';
@ -618,7 +620,7 @@ begin
AUnitinfo.LocationFullFile := CodePos.Code.Filename; AUnitinfo.LocationFullFile := CodePos.Code.Filename;
AUnitinfo.SrcLine := CodePos.Y; AUnitinfo.SrcLine := CodePos.Y;
//DumpStack; //DumpStack;
Result:=true; Result:=true; }
end; end;
function TDebugManager.GetFullFilename(const AUnitinfo: TDebuggerUnitInfo; function TDebugManager.GetFullFilename(const AUnitinfo: TDebuggerUnitInfo;