paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 06:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added enhancedraise define

Browse Source
This commit is contained in:
peter 2000-04-24 13:34:29 +00:00
parent 47ffdafd5e
commit 8818701433
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/options.pas
View File

@ -1226,6 +1226,7 @@ begin
def_symbol('CARDINALMULFIXED'); def_symbol('CARDINALMULFIXED');
{$endif cardinalmulfix} {$endif cardinalmulfix}
def_symbol('CORRECTFLDCW'); def_symbol('CORRECTFLDCW');
def_symbol('ENHANCEDRAISE');
{ some stuff for TP compatibility } { some stuff for TP compatibility }
{$ifdef i386} {$ifdef i386}
@ -1450,7 +1451,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.65 2000-04-10 11:36:19 pierre Revision 1.66 2000-04-24 13:34:29 peter
* added enhancedraise define
Revision 1.65 2000/04/10 11:36:19 pierre
* get -g-l to work * get -g-l to work
Revision 1.64 2000/04/07 14:56:18 peter Revision 1.64 2000/04/07 14:56:18 peter

9
rtl/objpas/sysutils.pp
View File

@ -260,7 +260,7 @@ begin
else else
E:=Exception.CreateFmt (SUnKnownRunTimeError,[Errno]); E:=Exception.CreateFmt (SUnKnownRunTimeError,[Errno]);
end; end;
Raise E at longint(Address),longint(Frame); Raise E at longint(Address){$ifdef ENHANCEDRAISE},longint(Frame){$endif};
end; end;
@ -306,11 +306,8 @@ Finalization
end. end.
{ {
$Log$ $Log$
Revision 1.44 2000-04-24 11:11:50 peter Revision 1.45 2000-04-24 13:34:29 peter
* backtraces for exceptions are now only generated from the place of the * added enhancedraise define
exception
* frame is also pushed for exceptions
* raise statement enhanced with [,<frame>]
Revision 1.43 2000/03/30 13:54:15 pierre Revision 1.43 2000/03/30 13:54:15 pierre
No stack check inside CatchUnhandledException No stack check inside CatchUnhandledException