program Transpascal;

{$MODE Delphi}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Forms, Interfaces, SysUtils,
  FormMain {MainForm},
  TextSource, Project, TranspascalCompiler, FormProject,
  FormSourceCode, FormMessages,
  FormTargetCode, FormCodeTree, Common,
  FormOptions, FormTargets,
  FormProjectNew, ProjectTemplates, FormTargetProject, Core,
  FormTargetOptions, FormExternalProducerOutput, IDEModulePascal;

{$R *.res}

{$IFDEF DEBUG}
const
  HeapTraceLog = 'heaptrclog.trc';
{$ENDIF}

begin
  Application.Title:='Transpascal IDE';
  {$IFDEF DEBUG}
  // Heap trace
  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
  {$ENDIF}

  Application.Initialize;
  Application.CreateForm(TCore, Core.Core);
  Application.CreateForm(TFormMain, FormMain.FormMain);
  Application.Run;
end.