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

* Moved FreeAndNil(FDollarStrings) to correct location

Browse Source 
git-svn-id: trunk@33266 -
This commit is contained in:
michael 2016-03-18 10:39:32 +00:00
parent 73792db52b
commit 51d22b02a0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -633,6 +633,7 @@ begin
FreeAndNil(FSQL);
FreeAndNil(FDirectives);
FreeAndNil(FDefines);
FreeAndNil(FDollarStrings);
inherited Destroy;
end;
@ -645,7 +646,6 @@ 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');