Changeset 5 for trunk/ChronOS.lpr


Ignore:
Timestamp:
Nov 23, 2014, 9:04:03 AM (9 years ago)
Author:
chronos
Message:

#1

  • Fixed: Scheduler should stop all tasks if it is stopped.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        22ChronOS.lps
        33lib
         4heaptrclog.trc

  • trunk/ChronOS.lpr

    r4 r5  
    1010  {$ENDIF}
    1111  Interfaces, // this includes the LCL widgetset
    12   Forms, UFormMain, UKernel, UFileSystem, UClock, UMemoryManager, UAPI,
     12  Forms, SysUtils, UFormMain, UKernel, UFileSystem, UClock, UMemoryManager, UAPI,
    1313  UPlatformBase, UList, UApp, UThreadEx, UMemory;
    1414
    1515{$R *.res}
    1616
     17{$IFDEF DEBUG}
     18const
     19  HeapTraceLog = 'heaptrclog.trc';
     20{$ENDIF}
     21
    1722begin
     23  {$IFDEF DEBUG}
     24  // Heap trace
     25  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
     26  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
     27  {$ENDIF}
     28
    1829  RequireDerivedFormResource := True;
    1930  Application.Initialize;
Note: See TracChangeset for help on using the changeset viewer.