* added enhancedraise define

compiler/options.pas

@@ -1226,6 +1226,7 @@ begin
   def_symbol('CARDINALMULFIXED');
 {$endif cardinalmulfix}
   def_symbol('CORRECTFLDCW');
+  def_symbol('ENHANCEDRAISE');
 
 { some stuff for TP compatibility }
 {$ifdef i386}
@@ -1450,7 +1451,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.65  2000-04-10 11:36:19  pierre
+  Revision 1.66  2000-04-24 13:34:29  peter
+    * added enhancedraise define
+
+  Revision 1.65  2000/04/10 11:36:19  pierre
    * get -g-l to work
 
   Revision 1.64  2000/04/07 14:56:18  peter

rtl/objpas/sysutils.pp

@@ -260,7 +260,7 @@ begin
   else
    E:=Exception.CreateFmt (SUnKnownRunTimeError,[Errno]);
   end;
-  Raise E at longint(Address),longint(Frame);
+  Raise E at longint(Address){$ifdef ENHANCEDRAISE},longint(Frame){$endif};
 end;
 
 
@@ -306,11 +306,8 @@ Finalization
 end.
 {
     $Log$
-    Revision 1.44  2000-04-24 11:11:50  peter
-      * backtraces for exceptions are now only generated from the place of the
-        exception
-      * frame is also pushed for exceptions
-      * raise statement enhanced with [,<frame>]
+    Revision 1.45  2000-04-24 13:34:29  peter
+      * added enhancedraise define
 
     Revision 1.43  2000/03/30 13:54:15  pierre
      No stack check inside CatchUnhandledException