paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 22:49:37 +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');
{$endif cardinalmulfix}
def_symbol('CORRECTFLDCW');
def_symbol('ENHANCEDRAISE');
{ some stuff for TP compatibility }
{$ifdef i386}
@ -1450,7 +1451,10 @@ end;
end.
{
$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
Revision 1.64 2000/04/07 14:56:18 peter

9
rtl/objpas/sysutils.pp
View File

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