* fixed previous commit (merged)

rtl/go32v2/dos.pp

@@ -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

rtl/linux/linux.pp

@@ -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

rtl/win32/dos.pp

@@ -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
- 
+
 }