paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 18:08:35 +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.
function FindFullFilenameSrc(const AUnitinfo: TDebuggerUnitInfo): boolean;
var
{var
SrcUnitName: String;
SrcInFilename: String;
SrcFilename: String;
@ -584,9 +584,11 @@ var
ProcDef: String;
CurCodeTool: TCodeTool;
CurCodeNode: TCodeTreeNode;
CodePos: TCodeXYPosition;
CodePos: TCodeXYPosition; }
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
SrcUnitName := AUnitinfo.UnitName;
SrcInFilename := '';
@ -618,7 +620,7 @@ begin
AUnitinfo.LocationFullFile := CodePos.Code.Filename;
AUnitinfo.SrcLine := CodePos.Y;
//DumpStack;
Result:=true;
Result:=true; }
end;
function TDebugManager.GetFullFilename(const AUnitinfo: TDebuggerUnitInfo;