Changeset 37 for branches/DelphiToC/DelphiToC.lpr

Timestamp:

Aug 4, 2010, 4:10:35 PM (14 years ago)

Author:

george

Message:

Fixed parsing array range error.

File:

• branches/DelphiToC/DelphiToC.lpr (modified) (2 diffs)

branches/DelphiToC/DelphiToC.lpr

@@ -4 +4 @@
 
 uses
-  Forms, Interfaces,
+  {$IFDEF UNIX}{$IFDEF UseCThreads}
+  cthreads,
+  {$ENDIF}{$ENDIF}
+  Forms, Interfaces, SysUtils,
   UMainForm in 'UMainForm.pas' {MainForm},
   UTextSource in 'UTextSource.pas',
@@ -16 +19 @@
 {$R *.res}
 
-{$WARN SYMBOL_PLATFORM OFF}
 begin
+  // Heap trace
+  DeleteFile(ExtractFilePath(ParamStr(0)) + 'heaptrclog.trc');
+  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + 'heaptrclog.trc');
+
   Application.Initialize;
   Application.CreateForm(TMainForm, MainForm);