summaryrefslogtreecommitdiff
path: root/packages/fcl-registry
diff options
context:
space:
mode:
authormichael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2>2020-11-13 20:45:40 +0000
committermichael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2>2020-11-13 20:45:40 +0000
commit3a6392d8d3ab04b620313b5e40359c5d2f25ab90 (patch)
treeca202b2fea6aea22d5fedf5423bf078f488659fc /packages/fcl-registry
parent3b16053f869b2e09895bf139db19912192af3309 (diff)
downloadfpc-3a6392d8d3ab04b620313b5e40359c5d2f25ab90.tar.gz
* Fix bug ID 37483, correct closesection, patch by C. Western
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@47410 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-registry')
-rw-r--r--packages/fcl-registry/src/regini.inc1
1 files changed, 1 insertions, 0 deletions
diff --git a/packages/fcl-registry/src/regini.inc b/packages/fcl-registry/src/regini.inc
index bef365e4c5..665e24ba4e 100644
--- a/packages/fcl-registry/src/regini.inc
+++ b/packages/fcl-registry/src/regini.inc
@@ -318,5 +318,6 @@ end;
procedure TRegIniFile.CloseSection;
begin
CloseKey(CurrentKey);
+ fCurrentKey:=0;
end;