paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 22:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Revert r55547 #9fae108464. FindFullFilenameSrc is called on Windows.

Browse Source 
git-svn-id: trunk@55550 -
This commit is contained in:
juha 2017-07-20 16:46:08 +00:00
parent 5f2e130bc6
commit 51ca7791dc
1 changed files with 4 additions and 6 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,11 +584,9 @@ function FindFullFilenameSrc(const AUnitinfo: TDebuggerUnitInfo): boolean;
ProcDef: String;
CurCodeTool: TCodeTool;
CurCodeNode: TCodeTreeNode;
CodePos: TCodeXYPosition; }
CodePos: TCodeXYPosition;
begin
DebugLn('FindFullFilenameSrc was called after all in TDebugManager.GetFullFilename.');
raise Exception.Create('FindFullFilenameSrc was called after all in TDebugManager.GetFullFilename.');
{ Result:=false;
Result:=false;
// search unit in project unit path
SrcUnitName := AUnitinfo.UnitName;
SrcInFilename := '';
@ -620,7 +618,7 @@ begin
AUnitinfo.LocationFullFile := CodePos.Code.Filename;
AUnitinfo.SrcLine := CodePos.Y;
//DumpStack;
Result:=true; }
Result:=true;
end;
function TDebugManager.GetFullFilename(const AUnitinfo: TDebuggerUnitInfo;