paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 16:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix bug #902 for win32 and linux

Browse Source
This commit is contained in:
pierre 2000-04-17 20:43:27 +00:00
parent 9e61c134bb
commit 60ed425f24
2 changed files with 32 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/linux/dos.pp
View File

@ -708,8 +708,13 @@ End;
Function FSearch(path : pathstr;dirlist : string) : pathstr;
Var
info:stat;
Begin
FSearch:=Linux.FSearch(path,dirlist);
if FStat(path,info) then
FSearch:=path
else
FSearch:=Linux.FSearch(path,dirlist);
End;
@ -909,7 +914,10 @@ End.
{
$Log$
Revision 1.19 2000-03-19 18:48:19 peter
Revision 1.20 2000-04-17 20:43:27 pierre
fix bug 902 for win32 and linux
Revision 1.19 2000/03/19 18:48:19 peter
* dosexitcode finally works correct
Revision 1.18 2000/03/16 15:23:02 marco
@ -938,4 +946,4 @@ End.
Revision 1.11 1999/07/24 11:18:11 peter
* fixed getfattr which didn't reset doserror
}
}

23
rtl/win32/dos.pp
View File

@ -544,6 +544,14 @@ begin
S[L]:=#0;
end;
Procedure PCharToString (Var S : String);
Var L : Longint;
begin
L:=strlen(pchar(@S[0]));
Move (S[0],S[1],L);
S[0]:=char(l);
end;
procedure FindMatch(var f:searchrec);
begin
@ -717,6 +725,14 @@ begin
StringToPchar(name);
StringToPchar(ext);
StringToPchar(dir);
if SearchPath(@dir, @name, @ext, 255, @value, temp)>0 then
begin
fsearch := strpas(value);
exit;
end;
PCharToString(dir);
repeat
i:=pos(';',dirlist);
while i=1 do
@ -934,7 +950,10 @@ begin
end.
{
$Log$
Revision 1.34 2000-02-26 13:24:26 peter
Revision 1.35 2000-04-17 20:43:27 pierre
fix bug 902 for win32 and linux
Revision 1.34 2000/02/26 13:24:26 peter
* fixed fexpand with empty argument to return current dir
Revision 1.33 2000/02/09 16:59:34 peter
@ -985,4 +1004,4 @@ end.
Revision 1.18 1999/08/12 09:24:14 michael
Fixed win32finddata size; searchrec.excludeattr was overwritten.
}
}