source: trunk/Compiler/Modules/NASM/ModuleNASM.pas

unit ModuleNASM;

interface

uses
  Classes, SysUtils, ModularSystem, TargetNASM, CompilerAPI;

type

  { TModuleNASM }

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


implementation

resourcestring
  SNASM = 'NASM';

{ TModuleNASM }

constructor TModuleNASM.Create;
begin
  inherited;
  Identification := 'NASM';
  Title := SNASM;
end;

destructor TModuleNASM.Destroy;
begin
  inherited;
end;

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

procedure TModuleNASM.DoUninstall;
begin
  with TCompilerAPI(API) do begin
    UnregisterTarget(TTargetNASM);
  end;
  inherited;
end;

end.