paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-18 14:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

ideutils: DeleteFileInteractive: dumpstack on wrong params

Browse Source
This commit is contained in:
mattias 2025-05-26 13:51:40 +02:00
parent 310f3efc95
commit e9d7d8bd40
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/packages/ideutils/dialogprocs.pas
View File

@ -598,8 +598,12 @@ var
CurFilename: String;
Found: Boolean;
begin
if FileName='' then
if (Filename='') or not FilenameIsAbsolute(FileName) then
begin
debugln(['Error: DeleteFileInteractive File="',Filename,'"']);
DumpStack;
exit(mrAbort); // Serious bug on the calling side, so abort.
end;
CurFilename:=Filename;
repeat
Result:=mrOk;