فهرست منبع

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