paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +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}
{ go32v2 stack check goes nuts if ss is not the data selector (PM) }
{$S-}
{$ifdef DEBUG}
{$define NOCATCH}
{$endif DEBUG}
{$endif}
interface
uses
{$ifdef linux}
@ -100,7 +104,10 @@ end.
{
$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
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
* not stack check inside catch !!
}
}

8
compiler/pp.pas
View File

@ -120,6 +120,9 @@ uses
catch,
{$endif}
{$ifdef go32v2}
{$ifdef DEBUG}
{$define NOCATCH}
{$endif DEBUG}
catch,
{$ifdef nocatch}
lineinfo,
@ -276,7 +279,10 @@ begin
end.
{
$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
fixed, break/continue/exit should work always now as expected