paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 15:11:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

applied bugfix from maillist to fsearch

Browse Source
This commit is contained in:
michael 1998-08-05 21:01:50 +00:00
parent 62a8c7c830
commit 2d8bbd8772
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/dos/dos.pp
View File

@ -855,7 +855,7 @@ end;
if dirlist[i]='/' then dirlist[i]:='\'; if dirlist[i]='/' then dirlist[i]:='\';
repeat repeat
p1:=pos(';',dirlist); p1:=pos(';',dirlist);
if p1=0 then if p1<>0 then
begin begin
newdir:=copy(dirlist,1,p1-1); newdir:=copy(dirlist,1,p1-1);
delete(dirlist,1,p1); delete(dirlist,1,p1);
@ -1011,7 +1011,10 @@ End;
end. end.
{ {
$Log$ $Log$
Revision 1.5 1998-05-31 14:18:13 peter Revision 1.6 1998-08-05 21:01:50 michael
applied bugfix from maillist to fsearch
Revision 1.5 1998/05/31 14:18:13 peter
* force att or direct assembling * force att or direct assembling
* cleanup of some files * cleanup of some files