source: trunk/Compiler/Modules/GCC/ModuleGCC.pas

unit ModuleGCC;

interface

uses
  Classes, SysUtils, ModularSystem, ProducerGCC, TargetGCC, CompilerAPI;

type

  { TModuleGCC }

  TModuleGCC = class(TModule)
  public
    Target: TTargetGCC;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure DoInstall; override;
    procedure DoUninstall; override;
  end;


implementation

resourcestring
  SGCC = 'GCC';

{ TModuleGCC }

constructor TModuleGCC.Create;
begin
  inherited;
  Identification := 'GCC';
  Title := SGCC;
end;

destructor TModuleGCC.Destroy;
begin
  inherited;
end;

procedure TModuleGCC.DoInstall;
begin
  Target := TTargetGCC.Create;
  with TCompilerAPI(API) do begin
    RegisterTarget(TTargetGCC);
  end;
  inherited;
end;

procedure TModuleGCC.DoUninstall;
begin
  with TCompilerAPI(API) do begin
    UnregisterTarget(TTargetGCC);
  end;
  inherited;
end;

end.