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

* include current directory in the list of searched directories in FSearch as expected in TP/BP

Browse Source 
git-svn-id: trunk@29531 -
This commit is contained in:
Tomas Hajny 2015-01-23 01:19:22 +00:00
parent 5176a069cf
commit 2e5054186c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/os2/dos.pas
View File

@ -112,7 +112,8 @@ Var
begin
P:=Path;
D:=DirList;
DosError := DosSearchPath (dsIgnoreNetErrs, PChar(D), PChar(P), @A, 255);
DosError := DosSearchPath (dsCurrentDir or dsIgnoreNetErrs, PChar(D),
PChar(P), @A, 255);
if DosError <> 0 then
OSErrorWatch (DosError);
fsearch := StrPas (@A);