forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixup for 67b1b16, lst fname under win

This commit is contained in:
Basile Burg 2016-02-07 00:37:12 +01:00
parent b8e7c106ae
commit 522729d4bd
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ce_main.pas
View File

@ -2014,6 +2014,9 @@ begin
fname := stripFileExt(TProcess(sender).Executable); fname := stripFileExt(TProcess(sender).Executable);
fullcov := true; fullcov := true;
covname := ReplaceStr(fname + '.lst', DirectorySeparator, '-'); covname := ReplaceStr(fname + '.lst', DirectorySeparator, '-');
{$IFDEF WINDOWS}
covname := ReplaceStr(covname, DriveSeparator, '-');
{$ENDIF}
if covname.fileExists then if covname.fileExists then
begin begin
lst := TStringList.Create; lst := TStringList.Create;