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

DEBUG implies NOCATCH for go32v2

Browse Source
This commit is contained in:
pierre 2000-02-18 12:34:43 +00:00
parent b3a9e650f2
commit f7ab5d514b
2 changed files with 16 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,8 +26,12 @@ 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-}
{$ifdef DEBUG}
{$define NOCATCH}
{$endif DEBUG}
{$endif} {$endif}
interface interface
uses uses
{$ifdef linux} {$ifdef linux}
@ -100,7 +104,10 @@ end.
{ {
$Log$ $Log$
Revision 1.11 2000-02-09 13:22:45 peter Revision 1.12 2000-02-18 12:34:43 pierre
DEBUG implies NOCATCH for go32v2
Revision 1.11 2000/02/09 13:22:45 peter
* log truncated * log truncated
Revision 1.10 2000/01/07 01:14:20 peter Revision 1.10 2000/01/07 01:14:20 peter
@ -112,4 +119,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 !!
} }

8
compiler/pp.pas
View File

@ -120,6 +120,9 @@ uses
catch, catch,
{$endif} {$endif}
{$ifdef go32v2} {$ifdef go32v2}
{$ifdef DEBUG}
{$define NOCATCH}
{$endif DEBUG}
catch, catch,
{$ifdef nocatch} {$ifdef nocatch}
lineinfo, lineinfo,
@ -276,7 +279,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.55 2000-02-10 23:44:43 florian Revision 1.56 2000-02-18 12:34:43 pierre
DEBUG implies NOCATCH for go32v2
Revision 1.55 2000/02/10 23:44:43 florian
* big update for exception handling code generation: possible mem holes * big update for exception handling code generation: possible mem holes
fixed, break/continue/exit should work always now as expected fixed, break/continue/exit should work always now as expected