paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 22:29:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* no backtrace for default unhandled exception

Browse Source
This commit is contained in:
peter 2005-01-26 15:57:02 +00:00
parent f2b558bc84
commit b989cd1d4e
1 changed files with 1 additions and 6 deletions

7
rtl/objpas/sysutils/sysutils.inc
View File

@ -175,7 +175,7 @@ Var
stdout:text absolute output;
{$ENDIF}
begin
Writeln(stdout,'An unhandled exception occurred at 0x',HexStr(Ptrint(Addr),sizeof(PtrInt)*2),' :');
Writeln(stdout,'An unhandled exception occurred at $',HexStr(Ptrint(Addr),sizeof(PtrInt)*2),' :');
if Obj is exception then
begin
Message:=Exception(Obj).ClassName+' : '+Exception(Obj).Message;
@ -183,11 +183,6 @@ begin
end
else
Writeln(stdout,'Exception object ',Obj.ClassName,' is not of class Exception.');
{ to get a nice symify }
{$IFNDEF VIRTUALPASCAL}
Writeln(stdout,BackTraceStrFunc(Addr));
Dump_Stack(stdout,frame);
{$ENDIF}
Writeln(stdout,'');
Halt(217);
end;