paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 19:45:59 +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; hp:=@ExceptAddrStack;
If hp^=nil then If hp^=nil then
begin begin
{$ifdef excdebug}
writeln ('At end of ExceptionAddresStack'); writeln ('At end of ExceptionAddresStack');
{$endif}
halt (255); halt (255);
end end
else else
@ -235,8 +237,10 @@ begin
_ExceptObjectStack:=ExceptObjectStack; _ExceptObjectStack:=ExceptObjectStack;
If _ExceptObjectStack=nil then If _ExceptObjectStack=nil then
begin begin
writeln ('At end of ExceptionObjectStack'); {$ifdef excdebug}
halt (1); writeln ('At end of ExceptionObjectStack');
{$endif}
halt (1);
end end
else else
begin begin
@ -268,7 +272,9 @@ begin
If not(assigned(_ExceptObjectStack)) or If not(assigned(_ExceptObjectStack)) or
not(assigned(_ExceptObjectStack^.next)) then not(assigned(_ExceptObjectStack^.next)) then
begin begin
{$ifdef excdebug}
writeln ('At end of ExceptionObjectStack'); writeln ('At end of ExceptionObjectStack');
{$endif}
halt (1); halt (1);
end end
else else
@ -309,7 +315,9 @@ begin
_ExceptObjectStack:=ExceptObjectStack; _ExceptObjectStack:=ExceptObjectStack;
If _ExceptObjectStack=Nil then If _ExceptObjectStack=Nil then
begin begin
{$ifdef excdebug}
Writeln ('Internal error.'); Writeln ('Internal error.');
{$endif}
halt (255); halt (255);
end; end;
_Objtype := TExceptObjectClass(Objtype); _Objtype := TExceptObjectClass(Objtype);