paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:59:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bug reported in the mailing list by Frank McCormick (fsearch: changed

Browse Source 
"if p1 = 0" to "if p1 <> 0"
This commit is contained in:
Jonas Maebe 1998-12-07 18:55:41 +00:00
parent a9f121f024
commit 7456669b53
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/os2/dos.pas
View File

@ -190,7 +190,7 @@ begin
if dirlist[i]='/' then dirlist[i]:='\';
repeat
p1:=pos(';',dirlist);
if p1=0 then
if p1<>0 then
begin
newdir:=copy(dirlist,1,p1-1);
delete(dirlist,1,p1);
@ -980,7 +980,11 @@ end;
end.
{
$Log$
Revision 1.8 1998-10-16 14:18:02 daniel
Revision 1.9 1998-12-07 18:55:41 jonas
* fixed bug reported in the mailing list by Frank McCormick (fsearch: changed
"if p1 = 0" to "if p1 <> 0"
Revision 1.8 1998/10/16 14:18:02 daniel
* Updates
Revision 1.7 1998/07/08 14:44:11 daniel