Procházet zdrojové kódy

* fixed SIGSEGV in exception handler

master
Bergmann89 před 10 roky
rodič
revize
7731de82fe
1 změnil soubory, kde provedl 1 přidání a 7 odebrání
  1. +1
    -7
      uutlMessageThread.pas

+ 1
- 7
uutlMessageThread.pas Zobrazit soubor

@@ -208,13 +208,7 @@ begin
empty := true; empty := true;
except except
on e: Exception do begin on e: Exception do begin
utlLogger.Error(self, 'error while progressing message %s(ID: %d; wParam: %s; lParam: %s): %s - %s', [
m.ClassName,
m.ID,
IntToHex(m.wParam, SizeOf(m.wParam) div 4),
IntToHex(m.wParam, SizeOf(m.wParam) div 4),
e.ClassName,
e.Message]);
utlLogger.Error(self, 'error while progressing message: %s - %s', [e.ClassName, e.Message]);
end; end;
end; end;
until empty; until empty;


Načítá se…
Zrušit
Uložit