Bläddra i källkod

Add Exception backtrace when compiled with -dDUMP_EXCEPTION_BACKTRACE

Pierre Muller 1 år sedan
förälder
incheckning
6f5c6ac410
1 ändrade filer med 3 tillägg och 0 borttagningar
  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,
           { in case of 50 errors, this could cause another exception,
             suppress this exception
             suppress this exception
           }
           }
+{$ifdef DUMP_EXCEPTION_BACKTRACE}
+          DumpExceptionBackTrace(stderr);
+{$endif DUMP_EXCEPTION_BACKTRACE}
           Message(general_f_compilation_aborted);
           Message(general_f_compilation_aborted);
         except
         except
           on ECompilerAbort do
           on ECompilerAbort do