paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 14:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add Exception backtrace when compiled with -dDUMP_EXCEPTION_BACKTRACE

Browse Source
This commit is contained in:
Pierre Muller 2023-10-09 22:02:28 +02:00
parent 2ad20b3787
commit 6f5c6ac410
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/compiler.pas
View File

@ -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