paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 16:59:49 +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. // 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,11 +584,9 @@ function FindFullFilenameSrc(const AUnitinfo: TDebuggerUnitInfo): boolean;
ProcDef: String; ProcDef: String;
CurCodeTool: TCodeTool; CurCodeTool: TCodeTool;
CurCodeNode: TCodeTreeNode; CurCodeNode: TCodeTreeNode;
CodePos: TCodeXYPosition; } CodePos: TCodeXYPosition;
begin begin
DebugLn('FindFullFilenameSrc was called after all in TDebugManager.GetFullFilename.'); Result:=false;
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 := '';
@ -620,7 +618,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;