瀏覽代碼

Add Exception backtrace when compiled with -dDUMP_EXCEPTION_BACKTRACE

Pierre Muller 1 年之前
父節點
當前提交
6f5c6ac410
共有 1 個文件被更改,包括 3 次插入0 次删除
  1. 3 0
      compiler/compiler.pas

+ 3 - 0
compiler/compiler.pas

@@ -341,6 +341,9 @@ begin
           { in case of 50 errors, this could cause another exception,
             suppress this exception
           }
+{$ifdef DUMP_EXCEPTION_BACKTRACE}
+          DumpExceptionBackTrace(stderr);
+{$endif DUMP_EXCEPTION_BACKTRACE}
           Message(general_f_compilation_aborted);
         except
           on ECompilerAbort do