paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-26 17:27:28 +01: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 uses
Classes, SysUtils, fpcunit, testregistry, TestBase, TestDbgControl, Classes, SysUtils, fpcunit, testregistry, TestBase, TestDbgControl,
TestDbgTestSuites, TestOutputLogger, TTestWatchUtilities, TestCommonSources, TestDbgTestSuites, TestOutputLogger, TTestWatchUtilities, TestCommonSources,
TestDbgConfig, DbgIntfDebuggerBase, DbgIntfBaseTypes, Forms; TestDbgConfig, DbgIntfDebuggerBase, DbgIntfBaseTypes;
type type

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

@ -285,7 +285,7 @@ begin
NamePostFix := NamePostFix + NewExeID; NamePostFix := NamePostFix + NewExeID;
end; 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} {$IFDEF windows}
ExtraArgs := ExtraArgs + ' -WG'; ExtraArgs := ExtraArgs + ' -WG';