* ifdefed fatal error messages in exception handling to be available only if debugging is needed.

git-svn-id: trunk@9562 -

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);