paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 03:39:28 +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
CreateSequenceCode(S,Lines);
end;
If (dcoProcedurePerTable in Options) then
EndProcedure(Lines);
end;
@ -396,7 +398,7 @@ begin
If (dcoUseWith in Options) then
begin
AddLine('end;',Lines);
Indent;
Undent;
end;
end;