From e475735c43b5b1909c355ff205004a1ca5a9d32c Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Fri, 28 Dec 2007 20:10:19 +0000
Subject: [PATCH] * ifdefed fatal error messages in exception handling to be
 available only if debugging is needed.

git-svn-id: trunk@9562 -
---
 rtl/inc/except.inc | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/except.inc b/rtl/inc/except.inc
index cc0fb46ccf..2abdd47ed1 100644
--- a/rtl/inc/except.inc
+++ b/rtl/inc/except.inc
@@ -215,7 +215,9 @@ begin
   hp:=@ExceptAddrStack;
   If hp^=nil then
     begin
+{$ifdef excdebug}
       writeln ('At end of ExceptionAddresStack');
+{$endif}
       halt (255);
     end
   else
@@ -235,8 +237,10 @@ begin
   _ExceptObjectStack:=ExceptObjectStack;
   If _ExceptObjectStack=nil then
     begin
-    writeln ('At end of ExceptionObjectStack');
-    halt (1);
+{$ifdef excdebug}
+      writeln ('At end of ExceptionObjectStack');
+{$endif}
+      halt (1);
     end
   else
     begin
@@ -268,7 +272,9 @@ begin
   If not(assigned(_ExceptObjectStack)) or
      not(assigned(_ExceptObjectStack^.next)) then
     begin
+{$ifdef excdebug}
       writeln ('At end of ExceptionObjectStack');
+{$endif}
       halt (1);
     end
   else
@@ -309,7 +315,9 @@ begin
   _ExceptObjectStack:=ExceptObjectStack;
   If _ExceptObjectStack=Nil then
    begin
+{$ifdef excdebug}
      Writeln ('Internal error.');
+{$endif}
      halt (255);
    end;
   _Objtype := TExceptObjectClass(Objtype);