paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 16:59:12 +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]:='\'; 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);
@ -980,7 +980,11 @@ end;
end. end.
{ {
$Log$ $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 * Updates
Revision 1.7 1998/07/08 14:44:11 daniel Revision 1.7 1998/07/08 14:44:11 daniel