program CpuSingleSize;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, UFormMain, UCpu, UAssembler, UInstructions, UFormScreen, UMachine,
  UFormCpu, UFormConsole, UFormAssembler, UCore, UFormDisassembler,
  UDisassembler, UMemory, UFormMessages, UMessages, SysUtils, UFormHelp, UParser;

{$R *.res}

{$if declared(UseHeapTrace)}
const
  HeapTraceLog = 'heaptrclog.trc';
{$ENDIF}

begin
  {$if declared(UseHeapTrace)}
  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
  {$ENDIF}

  RequireDerivedFormResource := True;
  Application.Scaled := True;
  Application.Initialize;
  Application.CreateForm(TCore, Core);
  Application.CreateForm(TFormMain, FormMain);
  Application.CreateForm(TFormScreen, FormScreen);
  Application.CreateForm(TFormConsole, FormConsole);
  Application.CreateForm(TFormCpu, FormCpu);
  Application.CreateForm(TFormAssembler, FormAssembler);
  Application.CreateForm(TFormDisassembler, FormDisassembler);
  Application.CreateForm(TFormMessages, FormMessages);
  Application.CreateForm(TFormHelp, FormHelp);
  Application.Run;
end.