paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 20:31:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Sergey Stepnoy to fix memleak, fix setting term

Browse Source 
git-svn-id: trunk@33265 -
This commit is contained in:
michael 2016-03-18 09:52:37 +00:00
parent be3aa9d6c2
commit 73792db52b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/base/sqlscript.pp
View File

@ -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');