paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 07:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl/amiga: in legacy MatchFirst, revert back to the original directory if we used CurrentDir(0), otherwise MatchFirst() will change the directory to SYS: (0 lock is a shortcut to the boot volume)

Browse Source
This commit is contained in:
Karoly Balogh 2021-12-27 11:52:01 +01:00
parent 8a63e7ee5a
commit 27e9377a3a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/amiga/m68k/legacydos.inc
View File

@ -271,7 +271,11 @@ begin
// if no path is given use the current working dir, or try to lock the dir
if Path = '' then
DirLock := CurrentDir(0)
begin
DirLock := CurrentDir(0);
if DirLock <> 0 then
CurrentDir(DirLock);
end
else
DirLock := Lock(PChar(Path), ACCESS_READ);
//