paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 14:27:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

* when compiled with -dnocatch, known rtes aren't translated anymore

Browse Source 
and a stack dump is written
This commit is contained in:
florian 2004-01-26 17:39:12 +00:00
parent a1d904c264
commit 9bdd9c4012
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pp.pas
View File

@ -155,6 +155,9 @@ var
procedure myexit; procedure myexit;
begin begin
exitproc:=oldexit; exitproc:=oldexit;
{$ifdef nocatch}
exit;
{$endif nocatch}
{ Show Runtime error if there was an error } { Show Runtime error if there was an error }
if (erroraddr<>nil) then if (erroraddr<>nil) then
begin begin
@ -200,7 +203,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.28 2003-12-06 01:15:22 florian Revision 1.29 2004-01-26 17:39:12 florian
* when compiled with -dnocatch, known rtes aren't translated anymore
and a stack dump is written
Revision 1.28 2003/12/06 01:15:22 florian
* reverted Peter's alloctemp patch; hopefully properly * reverted Peter's alloctemp patch; hopefully properly
Revision 1.27 2003/09/06 16:47:24 florian Revision 1.27 2003/09/06 16:47:24 florian