paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-26 07:40:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

Avoid program RTE if failing to remove temporary directory

Browse Source 
git-svn-id: trunk@38816 -
This commit is contained in:
pierre 2018-04-22 22:18:27 +00:00
parent 3da67019e5
commit ee1a5843aa
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/utils/dosbox/dosbox_wrapper.pas
View File

@ -397,7 +397,8 @@ begin
end;
TmpFileList.Free;
ChDir(StartDir);
RmDir(ADosBoxDir);
if not RemoveDir(ADosBoxDir) then
writeln('Failed to remove dir ',ADosBoxDir);
end;