Changeset 21 for trunk/Compiler/Produce

Timestamp:

Nov 9, 2010, 2:08:55 PM (15 years ago)

Author:

george

Message:

• Modified: Project saving.

File:

• trunk/Compiler/Produce/UProducerPascal.pas (modified) (5 diffs)

trunk/Compiler/Produce/UProducerPascal.pas

@@ -454 +454 @@
   Section: TCommonBlockSection;
 begin
+  Inc(Indetation);
   with CommonBlock do begin
     for I := 0 to Order.Count - 1 do begin
@@ -459 +460 @@
         if Section <> cbsType then begin
           EmitLn;
+          Dec(Indetation);
           EmitLn('type');
+          Inc(Indetation);
         end;
         Emit(TType(Order[I]).Name + ' = ');
@@ -469 +472 @@
         if Section <> cbsVariable then begin
           EmitLn;
+          Dec(Indetation);
           EmitLn('var');
+          Inc(Indetation);
         end;
         GenerateVariable(TVariable(Order[I]));
@@ -477 +482 @@
         if Section <> cbsConstant then begin
           EmitLn;
+          Dec(Indetation);
           EmitLn('const');
+          Inc(Indetation);
         end;
         GenerateConstant(TConstant(Order[I]));
@@ -488 +495 @@
     GenerateBeginEnd(Code);
   end;
+  Dec(Indetation);
 end;