From 4c869f07fa060261a20a7b54778b80a5e6bb7531 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 11 Sep 2008 00:32:35 +0000
Subject: GetExecution dirs forced to absolute path

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1361 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/UPlatform.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/base/UPlatform.pas')

diff --git a/src/base/UPlatform.pas b/src/base/UPlatform.pas
index e88e45b2..0942ec7b 100644
--- a/src/base/UPlatform.pas
+++ b/src/base/UPlatform.pas
@@ -85,7 +85,7 @@ end;
  *}
 function TPlatform.GetExecutionDir(): string;
 begin
-  Result := ExtractFilePath(ParamStr(0));
+  Result := ExpandFileName(ExtractFilePath(ParamStr(0)));
 end;
 
 (**
-- 
cgit v1.2.3