X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fengine%2Fe_res.pas;h=69adb6e6eb5faa6b5e4fd98c0d919b270cb50501;hb=72feb908b627ef4035f6ecabbd7f26c2443d40b1;hp=e48cc32ed5746264150eb419cbf14ee36db99135;hpb=fbef4d7a21bdc9a5b9c55f2b7b7d8ecde1151fe0;p=d2df-sdl.git

diff --git a/src/engine/e_res.pas b/src/engine/e_res.pas
index e48cc32..69adb6e 100644
--- a/src/engine/e_res.pas
+++ b/src/engine/e_res.pas
@@ -79,9 +79,9 @@ implementation
   function e_UpperDir (path: AnsiString): AnsiString;
     var i: Integer;
   begin
-    i := High(path);
+    i := High(path);  // consider possible cases: '\a\', '\a', '\abc\'
     while (i >= 1) and (path[i] <> '/') and (path[i] <> '\') do Dec(i);
-    result := Copy(path, 1, i)
+    result := Copy(path, 1, i-1)  // exclude the trailing separator
   end;
 
   function HasRelativeDirs (name: AnsiString): Boolean;