paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 05:43:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: cosmetic: layout

Browse Source 
git-svn-id: trunk@27661 -
This commit is contained in:
reiniero 2014-04-26 12:55:20 +00:00
parent 1d4de72aa7
commit af2bc84a9a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -459,7 +459,8 @@ begin
pnt:=FindNextSeparator([FTerminator, '/*', '"', '''']);
if (pnt=FTerminator) then
begin
if pnt='' then begin
if pnt='' then
begin
// Empty line, only e.g. a ; present:
FEmitLine:=False;
end