mORMot and Open Source friends
Check-in [1b4467f22e]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
SHA1:1b4467f22e19fa0e36d6ce4fd34f1e331e688f2f
Date: 2015-05-14 09:11:44
User: ab
Comment:{1351} fixed a long-standing bug in TSynLog WARNING: any user of the framework in heavy-loaded multi-threaded application should upgrade to this revision
Tags And Properties
Context
2015-05-14
10:36
[76fd8f5f71] {1352} TSynLog code refactoring to make it stronger against potential exceptions raised during the logging process (user: ab, tags: trunk)
09:11
[1b4467f22e] {1351} fixed a long-standing bug in TSynLog WARNING: any user of the framework in heavy-loaded multi-threaded application should upgrade to this revision (user: ab, tags: trunk)
2015-05-13
15:05
[af8413b938] {1350} added TFileBufferWriter.WriteN() method (user: ab, tags: trunk)
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to SynLog.pas.

2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
    fThreadContexts[fThreadContextCount].ID := ID;
    inc(fThreadContextCount);
    fThreadHash[hash] := fThreadContextCount;
  end;
  fThreadIndex := fThreadContextCount;
storendx:
  fThreadID := ID;
  fThreadContext := @fThreadContexts[fThreadIndex];
end;

procedure TSynLog.LockAndGetThreadContext;
var ID: TThreadID;
begin
  EnterCriticalSection(fThreadLock);
  ID := GetCurrentThreadId;







|







2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
    fThreadContexts[fThreadContextCount].ID := ID;
    inc(fThreadContextCount);
    fThreadHash[hash] := fThreadContextCount;
  end;
  fThreadIndex := fThreadContextCount;
storendx:
  fThreadID := ID;
  fThreadContext := @fThreadContexts[fThreadIndex-1];
end;

procedure TSynLog.LockAndGetThreadContext;
var ID: TThreadID;
begin
  EnterCriticalSection(fThreadLock);
  ID := GetCurrentThreadId;

Changes to SynopseCommit.inc.

1
'1.18.1350'
|
1
'1.18.1351'