From 73792db52b528b4e981f1afabddcf8a3a8958dc9 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 18 Mar 2016 09:52:37 +0000
Subject: [PATCH] * Patch from Sergey Stepnoy to fix memleak, fix setting term

git-svn-id: trunk@33265 -
---
 packages/fcl-db/src/base/sqlscript.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-db/src/base/sqlscript.pp b/packages/fcl-db/src/base/sqlscript.pp
index 20da623c87..bbdd3777c9 100644
--- a/packages/fcl-db/src/base/sqlscript.pp
+++ b/packages/fcl-db/src/base/sqlscript.pp
@@ -481,7 +481,10 @@ begin
         InternalCommit(true)
       else if FUseSetTerm
         and (Directive = 'SET TERM' {Firebird/Interbase only}) then
-        FTerminator:=S
+          begin
+          FTerminator:=S;
+          RecalcSeps;
+          end
       else
         InternalDirective (Directive,S,FAborted)
       end
@@ -642,6 +645,7 @@ procedure TCustomSQLScript.DefaultDirectives;
 begin
   With FDirectives do
     begin
+  FreeAndNil(FDollarStrings);
     // Insertion order matters as testing for directives will be done with StartsWith
     if FUseSetTerm then
       Add('SET TERM');