diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-04-02 16:25:43 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-04-02 16:25:43 +0000 |
| commit | e47cab69424304cdd124ece1e9c1916e5166fe9c (patch) | |
| tree | 2601043e26da9f40d420fc5bf745452ba69d5fe0 /packages/fcl-base | |
| parent | 898a1f4ea6ef24bb31b034767d09819c7b19484f (diff) | |
| download | fpc-e47cab69424304cdd124ece1e9c1916e5166fe9c.tar.gz | |
* Fix exception propagation in TiniFile.Free (bug 19046)
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17230 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-base')
| -rw-r--r-- | packages/fcl-base/src/inifiles.pp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/packages/fcl-base/src/inifiles.pp b/packages/fcl-base/src/inifiles.pp index eb4164bc1b..f75416d5e9 100644 --- a/packages/fcl-base/src/inifiles.pp +++ b/packages/fcl-base/src/inifiles.pp @@ -657,7 +657,11 @@ end; destructor TIniFile.destroy; begin If FDirty and FCacheUpdates then - UpdateFile; + try + UpdateFile; + except + // Eat exception. Compatible to D7 behaviour, see comments to bug 19046 + end; inherited destroy; end; |