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

* catching of exceptions is switched off on all targets if the define

Browse Source 
DEBUG is used
This commit is contained in:
florian 2000-03-20 09:37:51 +00:00
parent 431ec3bfe8
commit 360f371c44
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/catch.pas
View File

@ -26,10 +26,11 @@ Unit catch;
{$ifdef go32v2} {$ifdef go32v2}
{ go32v2 stack check goes nuts if ss is not the data selector (PM) } { go32v2 stack check goes nuts if ss is not the data selector (PM) }
{$S-} {$S-}
{$endif}
{$ifdef DEBUG} {$ifdef DEBUG}
{$define NOCATCH} {$define NOCATCH}
{$endif DEBUG} {$endif DEBUG}
{$endif}
interface interface
@ -104,7 +105,11 @@ end.
{ {
$Log$ $Log$
Revision 1.12 2000-02-18 12:34:43 pierre Revision 1.13 2000-03-20 09:37:51 florian
* catching of exceptions is switched off on all targets if the define
DEBUG is used
Revision 1.12 2000/02/18 12:34:43 pierre
DEBUG implies NOCATCH for go32v2 DEBUG implies NOCATCH for go32v2
Revision 1.11 2000/02/09 13:22:45 peter Revision 1.11 2000/02/09 13:22:45 peter
@ -119,4 +124,4 @@ end.
Revision 1.8 1999/08/10 12:27:15 pierre Revision 1.8 1999/08/10 12:27:15 pierre
* not stack check inside catch !! * not stack check inside catch !!
} }