Changeset 81 for branches/Transpascal/Compiler

Timestamp:

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

Author:

george

Message:

• Added: Partial support for multiple analyzers.

Location:

branches/Transpascal/Compiler

Files:

• UCompiler.pas (modified) (2 diffs)
• USourceCode.pas (modified) (1 diff)

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

branches/Transpascal/Compiler/USourceCode.pas

@@ -153 +153 @@
 
   TType = class
+    ForwardDeclared: Boolean;
     Internal: Boolean;
     Parent: TTypeList;