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

Timestamp:

Oct 15, 2010, 2:13:42 PM (14 years ago)

Author:

george

Message:

• Fixed: Focus message position in code.

File:

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

branches/Transpascal/Compiler/UCompiler.pas

@@ -18 +18 @@
   end;
 
-  { TCompiler }
+  TCompilerTarget = class
+    Vendor: string;
+    Model: string;
+    Architecture: string;
+  end;
+
+  { TCompilerList }
+
+  TCompilerTargetList = class(TObjectList)
+    procedure Add(Vendor, Model, Architecture: string);
+  end;
 
   TCompiler = class
@@ -30 +40 @@
     ErrorMessages: TObjectList;
     CompiledFolder: string;
+    SupportedTargets: TCompilerTargetList;
+    Target: TCompilerTarget;
     constructor Create;
+    destructor Destroy; override;
     procedure Init;
     procedure Compile(ModuleName: string; Source: TStringList);
-    destructor Destroy; override;
     property OnErrorMessage: TOnErrorMessage read FOnErrorMessage
       write FOnErrorMessage;
@@ -69 +81 @@
 constructor TCompiler.Create;
 begin
+  SupportedTargets := TCompilerTargetList.Create;
+  SupportedTargets.Add('AMD', 'Athlon II', 'amd64');
+  SupportedTargets.Add('Zilog', 'Z80', 'Z80');
+  SupportedTargets.Add('Rabbit', 'RC3000', 'Z180');
+  SupportedTargets.Add('Atmel', 'ATmega8', 'AVR');
+  SupportedTargets.Add('Atmel', 'UC3B0256', 'AVR32');
+  SupportedTargets.Add('Dallas', 'DS89C450', '8052');
+
   ProgramCode := TProgram.Create;
   Producer := TProducerC.Create;
@@ -89 +109 @@
   Producer.Free;
   ErrorMessages.Free;
+  SupportedTargets.Free;
 end;
 
@@ -103 +124 @@
 end;
 
+{ TCompilerTargetList }
+
+procedure TCompilerTargetList.Add(Vendor, Model, Architecture: string);
+var
+  NewItem: TCompilerTarget;
+begin
+  NewItem := TCompilerTarget.Create;
+  NewItem.Vendor := Vendor;
+  NewItem.Model := Model;
+  NewItem.Architecture := Architecture;
+  inherited Add(NewItem);
+end;
+
 end.