+ added setjmp/longjmp and exception support

rtl/inc/system.inc

@@ -512,9 +512,25 @@ begin
   runerror (227);
 end;
 
+{*****************************************************************************
+      SetJmp/LongJmp support.
+*****************************************************************************}
+
+{$i setjump.inc}
+
+{*****************************************************************************
+      Exception support.
+*****************************************************************************}
+
+// No go, because objpas needed :( (MVC)
+{  $i except.inc}
+
 {
   $Log$
-  Revision 1.23  1998-07-23 19:53:20  michael
+  Revision 1.24  1998-07-28 20:37:45  michael
+  + added setjmp/longjmp and exception support
+
+  Revision 1.23  1998/07/23 19:53:20  michael
   + Adapted assert to Delphi format
 
   Revision 1.22  1998/07/23 13:08:41  michael

rtl/inc/systemh.inc

@@ -397,10 +397,18 @@ Procedure AddExitProc(Proc:TProcedure);
 {$endif RTLLITE}
 Procedure halt;
 
+{*****************************************************************************
+                          SetJmp/LongJmp
+*****************************************************************************}
+
+{$i setjumph.inc}
 
 {
   $Log$
-  Revision 1.19  1998-07-20 23:36:57  michael
+  Revision 1.20  1998-07-28 20:37:47  michael
+  + added setjmp/longjmp and exception support
+
+  Revision 1.19  1998/07/20 23:36:57  michael
   changes for ansistrings
 
   Revision 1.18  1998/07/18 17:14:24  florian