diff options
author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2017-12-29 11:02:59 +0000 |
---|---|---|
committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2017-12-29 11:02:59 +0000 |
commit | abac9a563b09771c21fb36ee751b72d68386964c (patch) | |
tree | fd8bb29ac574b5b0247f20d62927b1be33b694e3 | |
parent | 9e2133cdffb577246c04bcbf1083e186bad5ea0f (diff) | |
download | fpc-abac9a563b09771c21fb36ee751b72d68386964c.tar.gz |
* Merge fix 37000 for fbadmin AV in lazarus IDE
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/fixes_3_0@37857 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | packages/fcl-db/src/sqldb/interbase/fbadmin.pp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/packages/fcl-db/src/sqldb/interbase/fbadmin.pp b/packages/fcl-db/src/sqldb/interbase/fbadmin.pp index 87f3139597..3dafa32e94 100644 --- a/packages/fcl-db/src/sqldb/interbase/fbadmin.pp +++ b/packages/fcl-db/src/sqldb/interbase/fbadmin.pp @@ -393,8 +393,10 @@ end; destructor TFBAdmin.Destroy; begin if FSvcHandle<>FB_API_NULLHANDLE then - WaitInterval:=100; + begin + WaitInterval:=100; DisConnect; + end; FOutput.Destroy; inherited Destroy; end; |