aboutsummaryrefslogtreecommitdiffstats
path: root/unicode/src/base/UCovers.pas
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--unicode/src/base/UCovers.pas6
1 files changed, 4 insertions, 2 deletions
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();