#4 Free Pascal patch for Log4D.pas

[Michael Justin]

In Free Pascal applications Log4D causes a sigsegv (access violation) error at initialization. This is caused in TLogLog.Create and can be fixed by using a temporary variable:

constructor TLogLog.Create;
var
  TmpAppender: ILogAppender;
begin
  inherited Create('');

  TmpAppender := TLogODSAppender.Create('');
  AddAppender(TmpAppender);
  InternalDebugging := False;
  Level             := Log4D.Debug;
end;