Changeset 37 for trunk/Compiler/Produce/UProducer.pas

Timestamp:

Feb 14, 2012, 7:33:51 AM (13 years ago)

Author:

chronos

Message:

• Added: Form containing list of supported compiler producers. Path to real compiler can be changed.

File:

• trunk/Compiler/Produce/UProducer.pas (modified) (2 diffs)

trunk/Compiler/Produce/UProducer.pas

@@ -17 +17 @@
     TextSource: TStringList;
     IndentationLength: Integer;
-    Indetation: Integer;
+    Indentation: Integer;
+    CompilerPath: string;
     procedure Emit(AText: string);
     procedure EmitLn(AText: string = '');
@@ -56 +57 @@
     if Count = 0 then Add('');
     if Strings[Count - 1] = '' then
-      Strings[Count - 1] := Strings[Count - 1] + DupeString(' ', IndentationLength * Indetation);
+      Strings[Count - 1] := Strings[Count - 1] + DupeString(' ', IndentationLength * Indentation);
     Strings[Count - 1] := Strings[Count - 1] + AText;
   end;