source: branches/multi-width/MultiWidth.lpr

Last change on this file was 54, checked in by chronos, 6 months ago
  • Added: Experimental multi-width CPU.
File size: 726 bytes
Line 
1program MultiWidth;
2
3{$mode objfpc}{$H+}
4
5uses
6 {$IFDEF UNIX}
7 cthreads,
8 {$ENDIF}
9 {$IFDEF HASAMIGA}
10 athreads,
11 {$ENDIF}
12 Interfaces, sysutils,// this includes the LCL widgetset
13 Forms, UFormMain, Cpu, Channel, Memory, Console, Int24
14 { you can add units after this };
15
16{$R *.res}
17
18{$if declared(UseHeapTrace)}
19const
20 HeapTraceLog = 'heaptrclog.trc';
21{$ENDIF}
22
23begin
24 {$if declared(UseHeapTrace)}
25 // Heap trace
26 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
27 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
28 {$ENDIF}
29
30 RequireDerivedFormResource:=True;
31 Application.Scaled:=True;
32 Application.Initialize;
33 Application.CreateForm(TFormMain, FormMain);
34 Application.Run;
35end.
36
Note: See TracBrowser for help on using the repository browser.