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

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

Browse Source 
git-svn-id: trunk@9562 -
This commit is contained in:
yury 2007-12-28 20:10:19 +00:00
parent e209ccd439
commit e475735c43
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/except.inc
View File

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