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

* fixed previous commit (merged)

Browse Source
This commit is contained in:
peter 2000-09-04 20:17:53 +00:00
parent b90e759995
commit ae5fe3eb68
3 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/go32v2/dos.pp
View File

@ -769,7 +769,7 @@ begin
Begin
If (Path[i]='.') Then
begin
while (i>0) and (Path[i]='.') do
while (i>1) and (Path[i-1]='.') do
dec(i);
DotPos:=i;
break;
@ -1137,7 +1137,10 @@ End;
end.
{
$Log$
Revision 1.7 2000-09-04 19:38:12 peter
Revision 1.8 2000-09-04 20:17:53 peter
* fixed previous commit (merged)
Revision 1.7 2000/09/04 19:38:12 peter
* fsplit with .. fix from Thomas (merged)
Revision 1.6 2000/08/04 21:45:39 peter

7
rtl/linux/linux.pp
View File

@ -2557,7 +2557,7 @@ Begin
Begin
If (DotPos=256) and (Path[i]='.') Then
begin
while (i>0) and (Path[i]='.') do
while (i>1) and (Path[i-1]='.') do
dec(i);
DotPos:=i;
end;
@ -2935,7 +2935,10 @@ End.
{
$Log$
Revision 1.3 2000-09-04 19:38:13 peter
Revision 1.4 2000-09-04 20:17:53 peter
* fixed previous commit (merged)
Revision 1.3 2000/09/04 19:38:13 peter
* fsplit with .. fix from Thomas (merged)
Revision 1.2 2000/07/13 11:33:48 michael

9
rtl/win32/dos.pp
View File

@ -667,7 +667,7 @@ begin
Begin
If (Path[i]='.') Then
begin
while (i>0) and (path[i]='.') do
while (i>1) and (Path[i-1]='.') do
dec(i);
DotPos:=i;
break;
@ -1018,7 +1018,10 @@ begin
end.
{
$Log$
Revision 1.4 2000-09-04 19:38:13 peter
Revision 1.5 2000-09-04 20:17:54 peter
* fixed previous commit (merged)
Revision 1.4 2000/09/04 19:38:13 peter
* fsplit with .. fix from Thomas (merged)
Revision 1.3 2000/08/24 19:02:36 peter
@ -1026,5 +1029,5 @@ end.
Revision 1.2 2000/07/13 11:33:57 michael
+ removed logs
}