Changeset 295 for Common


Ignore:
Timestamp:
Nov 15, 2011, 8:46:43 AM (13 years ago)
Author:
george
Message:
  • Moved: Units UPool and UResetableThread moved from CoolWeb to Common. Both units redone to more abstract reprezentation.
  • Added: New Port property in class TSqlDatabase.
Location:
Common
Files:
6 added
4 edited

Legend:

Unmodified
Added
Removed

  • Common/Common.lpk

    r290 r295  
    1212        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    1313      </SearchPaths>
     14      <Linking>
     15        <Debugging>
     16          <GenerateDebugInfo Value="True"/>
     17          <DebugInfoType Value="dsAuto"/>
     18        </Debugging>
     19      </Linking>
    1420      <Other>
    1521        <CompilerMessages>
    … …  
    2228    <License Value="GNU/GPL"/>
    2329    <Version Minor="3"/>
    24     <Files Count="8">
     30    <Files Count="10">
    2531      <Item1>
    2632        <Filename Value="StopWatch.pas"/>
    … …  
    5662        <UnitName Value="UMemory"/>
    5763      </Item8>
     64      <Item9>
     65        <Filename Value="UResetableThread.pas"/>
     66        <UnitName Value="UResetableThread"/>
     67      </Item9>
     68      <Item10>
     69        <Filename Value="UPool.pas"/>
     70        <UnitName Value="UPool"/>
     71      </Item10>
    5872    </Files>
    5973    <i18n>

  • Common/Common.pas

    r290 r295  
    99uses
    1010  StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier, UURI, UThreading,
    11   UMemory, LazarusPackageIntf;
     11  UMemory, UResetableThread, UPool, LazarusPackageIntf;
    1212
    1313implementation

  • Common/UDebugLog.pas

    r290 r295  
    101101begin
    102102  try
    103     ForceDirectoriesUTF8(ExtractFileDir(FileName));
     103    if ExtractFileDir(FileName) <> '' then
     104      ForceDirectoriesUTF8(ExtractFileDir(FileName));
    104105    if FileExistsUTF8(FileName) then LogFile := TFileStream.Create(UTF8Decode(FileName), fmOpenWrite)
    105106      else LogFile := TFileStream.Create(UTF8Decode(FileName), fmCreate);

  • Common/UThreading.pas

    r271 r295  
    4545  end;
    4646
     47  TVirtualThreadClass = class of TVirtualThread;
     48
    4749  TListedThread = class;
    4850
    … …  
    102104  TThreadList = class(TObjectList)
    103105    function FindById(Id: Integer): TVirtualThread;
    104     constructor Create;
     106    constructor Create; virtual;
    105107  end;
    106108
    … …  
    187189begin
    188190  inherited Create;
    189   OwnsObjects := False;
    190191end;
    191192
    … …  
    201202        OnException(Parent.FThread, E);
    202203  end;
    203                                                                                                                                                                                                                                                                                                                                     end;
     204end;
    204205
    205206{ TListedThread }
    … …  
    354355ThreadListLock := TCriticalSection.Create;
    355356ThreadList := TThreadList.Create;
     357ThreadList.OwnsObjects := False;
    356358
    357359finalization
Note: See TracChangeset for help on using the changeset viewer.