From 230d5ed9b8cd6ed6d8a85a53e614a3bbd6ccddb3 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 23 Jul 2009 19:18:31 +0000
Subject: TTextFileStream/TMemTextFileStream

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1886 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 unicode/src/base/UCovers.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'unicode/src/base/UCovers.pas')

diff --git a/unicode/src/base/UCovers.pas b/unicode/src/base/UCovers.pas
index 0dbe672a..228a0783 100644
--- a/unicode/src/base/UCovers.pas
+++ b/unicode/src/base/UCovers.pas
@@ -211,9 +211,11 @@ end;
 procedure TCoverDatabase.Open();
 var
   Version: integer;
-  Filename: IPath;
+  Filename, TmpPath: IPath;
 begin
-  Filename := Platform.GetGameUserPath().Append(COVERDB_FILENAME);
+  // TODO: remove fpc refcount workaround
+  TmpPath := Platform.GetGameUserPath();
+  Filename := TmpPath.Append(COVERDB_FILENAME);
 
   DB := TSQLiteDatabase.Create(Filename.ToUTF8());
   Version := GetVersion();
-- 
cgit v1.2.3