From c83bed53cb0f1d111a19715aae0436528d7358a3 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 6 Apr 2003 11:06:39 +0000
Subject: [PATCH] + Added exception classname to output of unhandled exception
 for better identification

---
 rtl/objpas/sysutils.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rtl/objpas/sysutils.inc b/rtl/objpas/sysutils.inc
index b832819932..01e933daea 100644
--- a/rtl/objpas/sysutils.inc
+++ b/rtl/objpas/sysutils.inc
@@ -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