* exceptions work

fcl/go32v2/classes.pp

@@ -14,8 +14,6 @@
 
 {$MODE OBJFPC}
 
-{$define noexceptions}
-
 { determine the type of the resource/form file }
 {$define Win16Res}
 unit Classes;
@@ -40,18 +38,9 @@ end.
 
 {
   $Log$
-  Revision 1.1  1998-11-04 10:15:13  peter
-    * fixes to compile
-
-  Revision 1.4  1998/09/30 13:41:02  florian
-    * fixes to make it compilable
+  Revision 1.2  1998-11-04 10:46:41  peter
+    * exceptions work
 
-  Revision 1.3  1998/05/06 13:00:25  michael
-  + Added strings to uses clause, for TStrings class.
-
-  Revision 1.2  1998/05/04 14:31:51  michael
-  + Split classes file.
-
-  Revision 1.1  1998/05/04 12:16:01  florian
-    + Initial revisions after making a new directory structure
+  Revision 1.1  1998/11/04 10:15:13  peter
+    * fixes to compile
 }

fcl/inc/bits.inc

@@ -21,7 +21,7 @@
 {$ifdef NoExceptions}
          ;
 {$else}
-         Raise(EBitsError);
+         Raise EBitsError.Create('');
 {$endif}
     end;
 
@@ -131,7 +131,10 @@
 
 {
   $Log$
-  Revision 1.1  1998-05-04 14:30:11  michael
+  Revision 1.2  1998-11-04 10:46:42  peter
+    * exceptions work
+
+  Revision 1.1  1998/05/04 14:30:11  michael
   * Split file according to Class; implemented dummys for all methods, so unit compiles.
 
 }

fcl/linux/classes.pp

@@ -14,9 +14,6 @@
 
 {$MODE OBJFPC}
 
-{ exceptions aren't implemented yet in the compiler }
-{$define NoExceptions}
-
 { determine the type of the resource/form file }
 {$define Win16Res}
 unit Classes;
@@ -40,7 +37,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.7  1998-11-04 10:15:13  peter
+  Revision 1.8  1998-11-04 10:46:43  peter
+    * exceptions work
+
+  Revision 1.7  1998/11/04 10:15:13  peter
     * fixes to compile
 
   Revision 1.6  1998/10/02 09:17:57  michael

fcl/win32/classes.pp

@@ -12,8 +12,7 @@
 
  **********************************************************************}
 
-{ exceptions aren't implemented yet in the compiler }
-{$define NoExceptions}
+{$mode objfpc}
 
 { determine the type of the resource/form file }
 {$define Win16Res}
@@ -22,7 +21,8 @@ unit Classes;
 interface
 
 uses
-  dos,strings,sysutils;
+  sysutils,
+  strings;
 
 {$i classesh.inc}
 
@@ -30,13 +30,18 @@ implementation
 
 { Read OS-dependent files }
 {$i osfile.inc}
+
+{ Read OS-independent files }
 {$i classes.inc}
 
 end.
 
 {
   $Log$
-  Revision 1.5  1998-10-30 14:49:03  michael
+  Revision 1.6  1998-11-04 10:46:44  peter
+    * exceptions work
+
+  Revision 1.5  1998/10/30 14:49:03  michael
   + Empty implementation of file functions
 
   Revision 1.4  1998/10/26 23:01:52  florian