diff options
Diffstat (limited to 'unicode/src/base/UCovers.pas')
| -rw-r--r-- | unicode/src/base/UCovers.pas | 6 |
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(); |