Changeset 81 for branches/Transpascal/Compiler/UCompiler.pas

Timestamp:

Oct 22, 2010, 4:16:35 PM (14 years ago)

Author:

george

Message:

• Added: Partial support for multiple analyzers.

File:

• branches/Transpascal/Compiler/UCompiler.pas (modified) (2 diffs)

branches/Transpascal/Compiler/UCompiler.pas

@@ -13 +13 @@
 type
   TProducerType = (ptGCCC, ptDynamicC, ptPascal, ptAssembler, ptXML);
+  TAnalyzerType = (ptCustomPascal, ptDelphi);
 
   TErrorMessage = class
@@ -60 +61 @@
   ProducerTypeName: array[TProducerType] of string = (
     'GCC C', 'Rabbit Dynamic C', 'Generic Pascal', 'Assembler', 'XML');
-
+  AnalyzerTypeName: array[TAnalyzerType] of string = (
+    'Custom pascal', 'Delphi');
 
 implementation