* Slight optimization (constant instead of variable in assignment)

git-svn-id: trunk@2747 -

rtl/inc/fexpand.inc

@@ -130,7 +130,7 @@ begin
       begin
         for I := 1 to Length (Pa) do
           if Pa [I] = '/' then
-            Pa [I] := DirectorySeparator
+            Pa [I] := '\'
       end
     else
       if DirectorySeparator = '/' then
@@ -138,7 +138,7 @@ begin
         begin
           for I := 1 to Length (Pa) do
             if Pa [I] = '\' then
-              Pa [I] := DirectorySeparator;
+              Pa [I] := '/';
         end;
 
 (* PathStart is amount of characters to strip to get beginning *)