From 12de31dbe57d47cdaeffc281dcfa213a89c18b97 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 7 Apr 1998 12:27:41 +0000
Subject: [PATCH]   * fixed fexpand('..')

---
 rtl/linux/linux.pp | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/rtl/linux/linux.pp b/rtl/linux/linux.pp
index 13fd29ccdb..79ba17a753 100644
--- a/rtl/linux/linux.pp
+++ b/rtl/linux/linux.pp
@@ -2662,7 +2662,7 @@ Begin
       getdir(0,temp)
      else
       inc(i);
-     temp:=temp+'/'+copy(path,i,length(path)-i+1);
+     temp:=temp+'/'+copy(path,i,length(path)-i+1)+'/';
    end;    
 {First remove all references to '/./'}
   while pos('/./',temp)<>0 do
@@ -2683,8 +2683,6 @@ Begin
        delete(temp,1,3);      
   until i=0;
 {Remove ending . and / which may exist}
-  if (length(temp)>0) and (temp[length(temp)]='.') then
-   dec(byte(temp[0]));
   if (length(temp)>0) and (temp[length(temp)]='/') then
    dec(byte(temp[0]));
   fexpand:=temp;
@@ -3123,7 +3121,10 @@ End.
 
 {
   $Log$
-  Revision 1.2  1998-04-04 17:07:17  michael
+  Revision 1.3  1998-04-07 12:27:41  peter
+    * fixed fexpand('..')
+
+  Revision 1.2  1998/04/04 17:07:17  michael
   + Fixed AssignStream, it completely refused to work
 
   Revision 1.1.1.1  1998/03/25 11:18:43  root