* removed previous fsplit() patch as it's not the correct behaviour for

LFNs. The code showing the bug could easily be adapted (merged)
This commit is contained in:
peter 2000-09-06 20:47:34 +00:00
parent c20a1723ce
commit 7229ed1cab
3 changed files with 15 additions and 9 deletions

View File

@ -769,8 +769,6 @@ begin
Begin
If (Path[i]='.') Then
begin
while (i>1) and (Path[i-1]='.') do
dec(i);
DotPos:=i;
break;
end;
@ -1137,7 +1135,11 @@ End;
end.
{
$Log$
Revision 1.8 2000-09-04 20:17:53 peter
Revision 1.9 2000-09-06 20:47:34 peter
* removed previous fsplit() patch as it's not the correct behaviour for
LFNs. The code showing the bug could easily be adapted (merged)
Revision 1.8 2000/09/04 20:17:53 peter
* fixed previous commit (merged)
Revision 1.7 2000/09/04 19:38:12 peter

View File

@ -2557,8 +2557,6 @@ Begin
Begin
If (DotPos=256) and (Path[i]='.') Then
begin
while (i>1) and (Path[i-1]='.') do
dec(i);
DotPos:=i;
end;
If (Path[i]='/') Then
@ -2935,7 +2933,11 @@ End.
{
$Log$
Revision 1.4 2000-09-04 20:17:53 peter
Revision 1.5 2000-09-06 20:47:34 peter
* removed previous fsplit() patch as it's not the correct behaviour for
LFNs. The code showing the bug could easily be adapted (merged)
Revision 1.4 2000/09/04 20:17:53 peter
* fixed previous commit (merged)
Revision 1.3 2000/09/04 19:38:13 peter

View File

@ -667,8 +667,6 @@ begin
Begin
If (Path[i]='.') Then
begin
while (i>1) and (Path[i-1]='.') do
dec(i);
DotPos:=i;
break;
end;
@ -1018,7 +1016,11 @@ begin
end.
{
$Log$
Revision 1.5 2000-09-04 20:17:54 peter
Revision 1.6 2000-09-06 20:47:34 peter
* removed previous fsplit() patch as it's not the correct behaviour for
LFNs. The code showing the bug could easily be adapted (merged)
Revision 1.5 2000/09/04 20:17:54 peter
* fixed previous commit (merged)
Revision 1.4 2000/09/04 19:38:13 peter