hide empty SynLog "Environment variables=" from eugeneilyin

- merged #240
synopse · Oct 16, 2019 · 0363081 · 0363081
1 parent e2e6367
commit 0363081
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/SynLog.pas b/SynLog.pas
@@ -4385,9 +4385,9 @@ procedure TSynLog.LogFileHeader;
       AddNoJSONEscapeString(InstanceFileName);
     end;
     {$ifdef MSWINDOWS}
-    NewLine;
-    AddShort('Environment variables=');
     if not fFamily.fNoEnvironmentVariable then begin
+      NewLine;
+      AddShort('Environment variables=');
       Env := GetEnvironmentStringsW;
       P := pointer(Env);
       while P^<>#0 do begin

diff --git a/SynTable.pas b/SynTable.pas
@@ -11962,7 +11962,7 @@ procedure TSynBackgroundTimer.EverySecond(
   n := 0;
   fTaskLock.Lock;
   try
-    variant(fTaskLock.Padding[0]) := true;
+    variant(fTaskLock.Padding[0]) := true; // = fTaskLock.LockedBool[0]
     try
       for i := 0 to length(fTask)-1 do begin
         t := @fTask[i];

diff --git a/SynopseCommit.inc b/SynopseCommit.inc
@@ -1 +1 @@
-'1.18.5410'
+'1.18.5411'