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

* Correct indentation of generated code in case of With

Browse Source 
git-svn-id: trunk@34469 -
This commit is contained in:
michael 2016-09-09 06:28:41 +00:00
parent fc7d4a36f4
commit 1d67fbc2b7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/codegen/fpddpopcode.pp
View File

@ -371,7 +371,9 @@ begin
If DoSequence(S) then If DoSequence(S) then
CreateSequenceCode(S,Lines); CreateSequenceCode(S,Lines);
end; end;
If (dcoProcedurePerTable in Options) then If (dcoProcedurePerTable in Options) then
EndProcedure(Lines); EndProcedure(Lines);
end; end;
@ -396,7 +398,7 @@ begin
If (dcoUseWith in Options) then If (dcoUseWith in Options) then
begin begin
AddLine('end;',Lines); AddLine('end;',Lines);
Indent; Undent;
end; end;
end; end;