aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authork-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-09-03 23:21:38 +0000
committerk-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-09-03 23:21:38 +0000
commitcbc9a8cc44af46886cacdf4cd825b3551894d0f7 (patch)
treee8aacdc205e5595b432cc8dd7a1ce137d58b1cc7
parentf95851f128b35b230ff125e003f8d9767397a6af (diff)
downloadusdx-cbc9a8cc44af46886cacdf4cd825b3551894d0f7.tar.gz
usdx-cbc9a8cc44af46886cacdf4cd825b3551894d0f7.tar.xz
usdx-cbc9a8cc44af46886cacdf4cd825b3551894d0f7.zip
Fixing a crash with Access violation if the folder Resources is missing in Application Support/UltraStarDeluxe
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1341 b956fd51-792f-4845-bead-9b4dfca2ff2c
-rw-r--r--src/base/UPlatformMacOSX.pas2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/base/UPlatformMacOSX.pas b/src/base/UPlatformMacOSX.pas
index 2ab2a390..217d4755 100644
--- a/src/base/UPlatformMacOSX.pas
+++ b/src/base/UPlatformMacOSX.pas
@@ -190,6 +190,8 @@ begin
until (DirectoryIsFinished = DirectoryList.Count);
// create missing folders
+ if not DirectoryExists(UserPathName) then
+ ForceDirectories(UserPathName);
for Counter := 0 to DirectoryList.Count-1 do
begin
if not ForceDirectories(UserPathName + '/' + DirectoryList[Counter]) then