diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-07-23 19:36:16 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-07-23 19:36:16 +0000 |
| commit | b747148d1b035e7ce59d6d96bde67ae8477957e4 (patch) | |
| tree | 88244d57fc1f1f8c2e29a57a6e65df375177267a /unicode/src/base/UCovers.pas | |
| parent | 4f49e51b9796e603b3cebf7c102c5712d083b292 (diff) | |
| download | usdx-b747148d1b035e7ce59d6d96bde67ae8477957e4.tar.gz usdx-b747148d1b035e7ce59d6d96bde67ae8477957e4.tar.xz usdx-b747148d1b035e7ce59d6d96bde67ae8477957e4.zip | |
- interface ref-cnt bug workaround for IPath
- IPath.Intern to be able to see the string contents while debugging (at least with delphi)
- previous workaround with temp-paths removed
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1897 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'unicode/src/base/UCovers.pas')
| -rw-r--r-- | unicode/src/base/UCovers.pas | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/unicode/src/base/UCovers.pas b/unicode/src/base/UCovers.pas index 228a0783..0dbe672a 100644 --- a/unicode/src/base/UCovers.pas +++ b/unicode/src/base/UCovers.pas @@ -211,11 +211,9 @@ end; procedure TCoverDatabase.Open(); var Version: integer; - Filename, TmpPath: IPath; + Filename: IPath; begin - // TODO: remove fpc refcount workaround - TmpPath := Platform.GetGameUserPath(); - Filename := TmpPath.Append(COVERDB_FILENAME); + Filename := Platform.GetGameUserPath().Append(COVERDB_FILENAME); DB := TSQLiteDatabase.Create(Filename.ToUTF8()); Version := GetVersion(); |