paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-27 14:37:20 +01: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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -175,7 +175,7 @@ Var
stdout:text absolute output; stdout:text absolute output;
{$ENDIF} {$ENDIF}
begin 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 if Obj is exception then
begin begin
Message:=Exception(Obj).ClassName+' : '+Exception(Obj).Message; Message:=Exception(Obj).ClassName+' : '+Exception(Obj).Message;
@ -183,11 +183,6 @@ begin
end end
else else
Writeln(stdout,'Exception object ',Obj.ClassName,' is not of class Exception.'); 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,''); Writeln(stdout,'');
Halt(217); Halt(217);
end; end;