paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 09:00:12 +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

7
rtl/objpas/sysutils.inc
View File

@ -174,7 +174,7 @@ begin
Writeln(stdout,'An unhandled exception occurred at 0x',HexStr(Longint(Addr),8),' :');
if Obj is exception then
begin
Message:=Exception(Obj).Message;
Message:=Exception(Obj).ClassName+' : '+Exception(Obj).Message;
Writeln(stdout,Message);
end
else
@ -375,7 +375,10 @@ end;
{
$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
Revision 1.14 2003/03/17 15:11:51 armin