* fix one test failure for unixes

(cherry picked from commit 87321a0e67ceaac9859cf7aaf92f6d3c515bac44)

packages/vcl-compat/src/system.ioutils.pp

@@ -388,7 +388,7 @@ class constructor TPath.Create;
 var
   C : Char;
 begin
-  FAltDirectorySeparatorChar:=#0;;
+  FAltDirectorySeparatorChar:=#0;
   For C in AllowDirectorySeparators do
     if (C<>System.DirectorySeparator) and (FAltDirectorySeparatorChar=#0) then
       FAltDirectorySeparatorChar:=C;

packages/vcl-compat/tests/tciotuils.pas

@@ -1086,6 +1086,8 @@ procedure TTestTPath.TestAltDirectorySeparatorChar;
 begin
   {$ifdef Windows}
     AssertEquals('/',TPath.AltDirectorySeparatorChar);
+  {$elseif defined(unix)}
+    AssertEquals('\',TPath.AltDirectorySeparatorChar);
   {$else}
     AssertEquals('/',TPath.AltDirectorySeparatorChar);
   {$endif}