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

+ Added exception classname to output of unhandled exception for better identification

Browse Source
This commit is contained in:
michael 2003-04-06 11:06:39 +00:00
parent ec71805aa8
commit c83bed53cb
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/sysutils.inc
View File

@ -174,7 +174,7 @@ begin
Writeln(stdout,'An unhandled exception occurred at 0x',HexStr(Longint(Addr),8),' :'); Writeln(stdout,'An unhandled exception occurred at 0x',HexStr(Longint(Addr),8),' :');
if Obj is exception then if Obj is exception then
begin begin
Message:=Exception(Obj).Message; Message:=Exception(Obj).ClassName+' : '+Exception(Obj).Message;
Writeln(stdout,Message); Writeln(stdout,Message);
end end
else else
@ -375,7 +375,10 @@ end;
{ {
$Log$ $Log$
Revision 1.15 2003-03-18 08:28:23 michael Revision 1.16 2003-04-06 11:06:39 michael
+ Added exception classname to output of unhandled exception for better identification
Revision 1.15 2003/03/18 08:28:23 michael
Patch from peter for Abort routine Patch from peter for Abort routine
Revision 1.14 2003/03/17 15:11:51 armin Revision 1.14 2003/03/17 15:11:51 armin