From 6f5c6ac4107526e2d0856c715208ce4fac011fc5 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Mon, 9 Oct 2023 22:02:28 +0200
Subject: [PATCH] Add Exception backtrace when compiled with
 -dDUMP_EXCEPTION_BACKTRACE

---
 compiler/compiler.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/compiler.pas b/compiler/compiler.pas
index 4c139809f9..bf066a7855 100644
--- a/compiler/compiler.pas
+++ b/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