When hwengine crashes w/ error 217, write backtrace in log, too
authorWuzzy <Wuzzy2@mail.ru>
Mon, 16 Jul 2018 04:50:23 +0200
changeset 13493 dbf4f7a677be
parent 13492 d23731fe84d4
child 13494 8935dcc0e130
When hwengine crashes w/ error 217, write backtrace in log, too By using WriteLnToConsole to achive that.
hedgewars/hwengine.pas
--- a/hedgewars/hwengine.pas	Sun Jul 15 19:49:31 2018 +0200
+++ b/hedgewars/hwengine.pas	Mon Jul 16 04:50:23 2018 +0200
@@ -45,12 +45,14 @@
 procedure preInitEverything();
 procedure initEverything(complete:boolean);
 procedure freeEverything(complete:boolean);
+procedure catchUnhandledException(Obj: TObject; Addr: Pointer; FrameCount: Longint; Frames: PPointer);
 
 implementation
 {$ELSE}
 procedure preInitEverything(); forward;
 procedure initEverything(complete:boolean); forward;
 procedure freeEverything(complete:boolean); forward;
+procedure catchUnhandledException(Obj: TObject; Addr: Pointer; FrameCount: Longint; Frames: PPointer); forward;
 {$ENDIF}
 
 {$IFDEF WIN32}
@@ -597,6 +599,28 @@
     freeEverything(false);
 end;
 
+// Write backtrace to console and log when an unhandled exception occurred
+procedure catchUnhandledException(Obj: TObject; Addr: Pointer; FrameCount: Longint; Frames: PPointer);
+var
+  Message: string;
+  i: LongInt;
+begin
+  WriteLnToConsole('An unhandled exception occurred at $' + HexStr(Addr) + ':');
+  if Obj is exception then
+   begin
+     Message := Exception(Obj).ClassName + ': ' + Exception(Obj).Message;
+     WriteLnToConsole(Message);
+   end
+  else
+    WriteLnToConsole('Exception object ' + Obj.ClassName + ' is not of class Exception.');
+  WriteLnToConsole(BackTraceStrFunc(Addr));
+  if (FrameCount > 0) then
+    begin
+      for i := 0 to FrameCount - 1 do
+        WriteLnToConsole(BackTraceStrFunc(Frames[i]));
+    end;
+end;
+
 {$IFDEF HWLIBRARY}
 function RunEngine(argc: LongInt; argv: PPChar): LongInt; cdecl; export;
 begin
@@ -624,6 +648,9 @@
     // workaround for pascal's ParamStr and ParamCount
     init(argc, argv);
 {$ENDIF}
+    // Custom procedure for unhandled exceptions; ExceptProc is used by sysutils module
+    ExceptProc:= @catchUnhandledException;
+
     preInitEverything();
 
     GetParams();