source: trunk/mzxemu.lpr

Last change on this file was 13, checked in by chronos, 2 weeks ago
  • Added: Call stack window.
  • Modified: Use reload pending boolean variable and reload from timer instead of Thread.Synchronize to not delay CPU execution.
File size: 891 bytes
Line 
1program mzxemu;
2
3{$mode objfpc}{$H+}
4
5uses
6 {$IFDEF UNIX}
7 cthreads, clocale,
8 {$ENDIF}
9 {$IFDEF HASAMIGA}
10 athreads,
11 {$ENDIF}
12 SysUtils, Interfaces, // this includes the LCL widgetset
13 Forms, FormMain, FormMemory, FormDisassembler, Z80, SharpMz800,
14MemoryTypes, Core,
15 Z80InstructionInfo, Z80Instructions, Disassembler, FormCpu, FormScreen,
16 FormGoToAddress, FormMessages, Base, InstructionSetGen, I8253, I8255,
17FormCallStack, Debugger;
18
19{$if declared(UseHeapTrace)}
20const
21 HeapTraceLog = 'heaptrclog.trc';
22{$ENDIF}
23{$R *.res}
24
25begin
26 {$if declared(UseHeapTrace)}
27 // Heap trace
28 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
29 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
30 {$ENDIF}
31
32 RequireDerivedFormResource:=True;
33 Application.Scaled:=True;
34 Application.Initialize;
35 Application.CreateForm(TCore, Core.Core);
36 Application.Run;
37end.
38
Note: See TracBrowser for help on using the repository browser.