Changeset 14 for trunk/Compiler/Produce/UProducers.pas

Timestamp:

Nov 8, 2010, 12:58:47 PM (14 years ago)

Author:

george

Message:

• Added: SINGLE_PRODUCER keyword for exclude other producers form compilation.

File:

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

trunk/Compiler/Produce/UProducers.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils,
-  UProducerPascal,
-  UProducerDynamicC,
+  UProducerPascal
+  {$IFNDEF SINGLE_PRODUCER}
+  , UProducerDynamicC,
   UProducerAsm8051,
-  UProducerGCCC;
+  UProducerGCCC
+  {$ENDIF}
+  ;
 
 procedure RegisterProducers(Compiler: TObject);
@@ -23 +26 @@
   with TCompiler(Compiler).Producers do begin
     Add(TProducerPascal.Create);
+    {$IFNDEF SINGLE_PRODUCER}
     Add(TProducerDynamicC.Create);
     Add(TProducerGCCC.Create);
     Add(TProducerAsm8051.Create);
+    {$ENDIF}
   end;
 end;