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

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/go32v2/dos.pp
View File

@ -769,8 +769,6 @@ begin
Begin Begin
If (Path[i]='.') Then If (Path[i]='.') Then
begin begin
while (i>1) and (Path[i-1]='.') do
dec(i);
DotPos:=i; DotPos:=i;
break; break;
end; end;
@ -1137,7 +1135,11 @@ End;
end. end.
{ {
$Log$ $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) * fixed previous commit (merged)
Revision 1.7 2000/09/04 19:38:12 peter Revision 1.7 2000/09/04 19:38:12 peter

8
rtl/linux/linux.pp
View File

@ -2557,8 +2557,6 @@ Begin
Begin Begin
If (DotPos=256) and (Path[i]='.') Then If (DotPos=256) and (Path[i]='.') Then
begin begin
while (i>1) and (Path[i-1]='.') do
dec(i);
DotPos:=i; DotPos:=i;
end; end;
If (Path[i]='/') Then If (Path[i]='/') Then
@ -2935,7 +2933,11 @@ End.
{ {
$Log$ $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) * fixed previous commit (merged)
Revision 1.3 2000/09/04 19:38:13 peter Revision 1.3 2000/09/04 19:38:13 peter

8
rtl/win32/dos.pp
View File

@ -667,8 +667,6 @@ begin
Begin Begin
If (Path[i]='.') Then If (Path[i]='.') Then
begin begin
while (i>1) and (Path[i-1]='.') do
dec(i);
DotPos:=i; DotPos:=i;
break; break;
end; end;
@ -1018,7 +1016,11 @@ begin
end. end.
{ {
$Log$ $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) * fixed previous commit (merged)
Revision 1.4 2000/09/04 19:38:13 peter Revision 1.4 2000/09/04 19:38:13 peter