DEBUG implies NOCATCH for go32v2

compiler/catch.pas

@@ -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 !!
 
-}
+}

compiler/pp.pas

@@ -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