Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Add newline after uses clause

Michaël Van Canneyt 9 months ago
parent
4a3b2c3c32
commit
38b5a4cbb7
1 changed files with 2 additions and 0 deletions
Split View Show Diff Stats
  1. 2 0
      packages/fcl-jsonschema/src/fpjson.schema.codegen.pp

+ 2 - 0
packages/fcl-jsonschema/src/fpjson.schema.codegen.pp
View File 

@@ -308,7 +308,9 @@ begin
 
     Addln('interface');
 
     Addln('');
 
     AddLn('uses types;');
 
+    Addln('');
 
     EnsureSection(csType);
 
+    Addln('');
 
     indent;
 
     for I := 0 to aData.TypeCount-1 do
 
       if aData.Types[I].PascalType in [ptSchemaStruct,ptAnonStruct] then