Browse Source

* increase the maximum stack trace depth, when the compiler is compiled with -dEXTDEBUG

git-svn-id: trunk@34568 -
nickysn 8 years ago
parent
commit
7f3ac8bf51
1 changed files with 5 additions and 0 deletions
  1. 5 0
      compiler/pp.pas

+ 5 - 0
compiler/pp.pas

@@ -223,6 +223,11 @@ end;
 begin
 begin
   oldexit:=exitproc;
   oldexit:=exitproc;
   exitproc:=@myexit;
   exitproc:=@myexit;
+{$ifdef EXTDEBUG}
+{ Increase the maximum stack trace depth, since the default 8 is often not
+  enough for debugging the compiler }
+  Max_Frame_Dump:=50;
+{$endif EXTDEBUG}
 { Call the compiler with empty command, so it will take the parameters }
 { Call the compiler with empty command, so it will take the parameters }
   Halt(compiler.Compile(''));
   Halt(compiler.Compile(''));
 end.
 end.