Changeset 37 for trunk/Compiler/Produce/UProducerDynamicC.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/UProducerDynamicC.pas (modified) (7 diffs)

trunk/Compiler/Produce/UProducerDynamicC.pas

@@ -50 +50 @@
 begin
   Name := 'Dynamic C';
+  {$IFDEF Windows}
+  CompilerPath := 'c:\Program Files\Dynamic C Rabbit 9.62\Dcrab_9.62.exe';
+  {$ENDIF}
 end;
 
@@ -142 +145 @@
   I: Integer;
 begin
-  Indetation := 0;
+  Indentation := 0;
   with ProgramBlock do
   for I := 0 to Modules.Count - 1 do
@@ -180 +183 @@
 begin
   EmitLn('{');
-  Inc(Indetation);
+  Inc(Indentation);
 
   // Variables
@@ -191 +194 @@
     GenerateCommand(TCommand(BeginEnd.Commands[I]));
 
-  Dec(Indetation);
+  Dec(Indentation);
   EmitLn('}');
 end;
@@ -320 +323 @@
     EmitLn('struct');
     EmitLn('{');
-    Inc(Indetation);
+    Inc(Indentation);
     GenerateVariableList(TTypeRecord(AType).CommonBlock.Variables);
-    Dec(Indetation);
+    Dec(Indentation);
     EmitLn('} ' + TranslateType(AType.Name) + ';');
     EmitLn;
@@ -363 +366 @@
 begin
   if Types.Count > 0 then begin
-    Inc(Indetation);
+    Inc(Indentation);
     for I := 0 to Types.Count - 1 do
     with TType(Types[I]) do
@@ -371 +374 @@
       EmitLn(';');
     end;
-    Dec(Indetation);
+    Dec(Indentation);
     EmitLn('');
   end;