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

DebuggerTests: clean up / change naming for temp exe files

Browse Source 
git-svn-id: trunk@64540 -
This commit is contained in:
martin 2021-02-11 22:40:25 +00:00
parent eab19f455a
commit dee9846c86
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazdebuggers/lazdebuggerfp/test/testwatches.pas
View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils, fpcunit, testregistry, TestBase, TestDbgControl,
TestDbgTestSuites, TestOutputLogger, TTestWatchUtilities, TestCommonSources,
TestDbgConfig, DbgIntfDebuggerBase, DbgIntfBaseTypes, Forms;
TestDbgConfig, DbgIntfDebuggerBase, DbgIntfBaseTypes;
type

2
components/lazdebuggers/lazdebugtestbase/ttestdbgexecuteables.pas
View File

@ -285,7 +285,7 @@ begin
NamePostFix := NamePostFix + NewExeID;
end;
AnExeName := ExePath + AnExeName + SymbolTypeNames[SymbolType] + '_' + NameToFileName(Self.Name) + NamePostFix + GetExeExt;
AnExeName := ExePath + AnExeName + '_'+IntToStr(GetProcessID)+'_'+ SymbolTypeNames[SymbolType] + '_' + NameToFileName(Self.Name) + NamePostFix + GetExeExt;
{$IFDEF windows}
ExtraArgs := ExtraArgs + ' -WG';