2
0
Эх сурвалжийг харах

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

florian 25 жил өмнө
parent
commit
360f371c44

+ 8 - 3
compiler/catch.pas

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