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

* exception address fixes

Browse Source
This commit is contained in:
peter 1999-11-15 21:49:47 +00:00
parent 892d38d1f4
commit 78d5e706ac
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/system.inc
View File

@ -569,7 +569,7 @@ procedure AbstractError;[public,alias : 'FPC_ABSTRACTERROR'];
begin
If AbstractErrorProc<>nil then
AbstractErrorProc();
HandleError(211);
HandleErrorFrame(211,get_frame);
end;
@ -578,7 +578,7 @@ begin
if AssertErrorProc<>nil then
AssertErrorProc(Msg,FName,LineNo,ErrorAddr)
else
HandleError(227);
HandleErrorFrame(227,get_frame);
end;
@ -608,7 +608,10 @@ end;
{
$Log$
Revision 1.71 1999-11-09 22:40:12 pierre
Revision 1.72 1999-11-15 21:49:47 peter
* exception address fixes
Revision 1.71 1999/11/09 22:40:12 pierre
+ get also first BackTrace address with ' 0x' prefix
Revision 1.70 1999/11/09 20:14:12 daniel

9
rtl/objpas/sysutils.pp
View File

@ -189,7 +189,7 @@ Procedure CatchUnhandledException (Obj : TObject; Addr: Pointer);
Var
Message : String;
begin
Writeln(stdout,'An unhandled exception occurred at ',HexStr(Longint(Addr),8),' :');
Writeln(stdout,'An unhandled exception occurred at 0x',HexStr(Longint(Addr),8),' :');
if Obj is exception then
begin
Message:=Exception(Obj).Message;
@ -250,7 +250,7 @@ begin
else
E:=Exception.CreateFmt (SUnKnownRunTimeError,[Errno]);
end;
Raise E {at Address};
Raise E at longint(Address);
end;
@ -293,7 +293,10 @@ Finalization
end.
{
$Log$
Revision 1.35 1999-11-06 14:41:31 peter
Revision 1.36 1999-11-15 21:49:47 peter
* exception address fixes
Revision 1.35 1999/11/06 14:41:31 peter
* truncated log
Revision 1.34 1999/10/30 17:39:05 peter