From cbc9a8cc44af46886cacdf4cd825b3551894d0f7 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 3 Sep 2008 23:21:38 +0000
Subject: 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
---
 src/base/UPlatformMacOSX.pas | 2 ++
 1 file changed, 2 insertions(+)

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

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
-- 
cgit v1.2.3