+ Some changes by TSE

fcl/inc/classes.inc

@@ -16,9 +16,20 @@
  *       Class implementations are in separate files.                 *
  **********************************************************************}
 
+{!!!TSE 21.08.1998 added german exception messages}
+{$i constsg.inc}
+
 { Utility routines }
 {$i util.inc}
 
+{!!!TSE 21.09.1998 reimplements exceptions classes}
+{$IFNDEF USE_EXCEPTIONS}
+constructor Exception.Create(Msg : String);
+begin
+  inherited Create;
+end;
+{$ENDIF}
+
 { TBits implementation }
 {$i bits.inc}
 
@@ -325,7 +336,10 @@ end;
 
 {
   $Log$
-  Revision 1.3  1998-06-03 15:10:20  michael
+  Revision 1.4  1998-09-23 07:47:40  michael
+  + Some changes by TSE
+
+  Revision 1.3  1998/06/03 15:10:20  michael
   + added include of util.inc
 
   Revision 1.2  1998/05/04 14:30:11  michael
@@ -361,7 +375,10 @@ end;
 
 {
   $Log$
-  Revision 1.3  1998-06-03 15:10:20  michael
+  Revision 1.4  1998-09-23 07:47:40  michael
+  + Some changes by TSE
+
+  Revision 1.3  1998/06/03 15:10:20  michael
   + added include of util.inc
 
   Revision 1.2  1998/05/04 14:30:11  michael

fcl/inc/classesh.inc

@@ -13,7 +13,14 @@
  **********************************************************************}
 type
    { extra types to compile with FPC }
-   Exception = class(TObject);
+{$IFNDEF USE_EXCEPTIONS}
+   {!!!TSE 21.09.1998 redefined, create constructor added}
+   Exception = class(TObject)
+   public
+     constructor Create(Msg : String);
+   end;
+{$ENDIF}
+
    EOutOfMemory = class(Exception);
    TRTLCriticalSection = class(TObject);
    HRSRC = longint;
@@ -713,7 +720,7 @@ type
     function GetPosition: Longint;
     procedure SetPosition(Value: Longint);
     procedure WriteBuffer;
-    procedure WriteData(Instance: TComponent); virtual; // linker optimization
+    procedure WriteData(Instance: TComponent); // linker optimization
     procedure WriteProperty(Instance: TPersistent; PropInfo: Pointer);
     procedure WriteProperties(Instance: TPersistent);
     procedure WritePropName(const PropName: string);
@@ -1048,7 +1055,10 @@ function LineStart(Buffer, BufPos: PChar): PChar;
 
 {
   $Log$
-  Revision 1.7  1998-08-22 10:41:00  michael
+  Revision 1.8  1998-09-23 07:47:41  michael
+  + Some changes by TSE
+
+  Revision 1.7  1998/08/22 10:41:00  michael
   + Some adaptations for changed comment and published handling
 
   Revision 1.6  1998/06/11 13:46:32  michael