Skip to content
Permalink
Browse files

hide empty SynLog "Environment variables=" from eugeneilyin

- merged #240
  • Loading branch information...
Arnaud Bouchez
Arnaud Bouchez committed Oct 16, 2019
1 parent e2e6367 commit 03630818370aa7848e54e4660c7e181038c6d58a
Showing with 4 additions and 4 deletions.
  1. +2 −2 SynLog.pas
  2. +1 −1 SynTable.pas
  3. +1 −1 SynopseCommit.inc
@@ -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
@@ -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];
@@ -1 +1 @@
'1.18.5410'
'1.18.5411'

0 comments on commit 0363081

Please sign in to comment.
You can’t perform that action at this time.