+ New runerror 231 (exception stack error) and 232 (nothread support)

rtl/inc/except.inc

@@ -58,7 +58,7 @@ end;
 function AcquireExceptionObject: Pointer;
 begin
   If ExceptObjectStack=nil then begin
-    runerror(0); // which error?
+    runerror(231); // which error?
   end else begin
     Inc(ExceptObjectStack^.refcount);
     AcquireExceptionObject := ExceptObjectStack^.FObject;
@@ -68,10 +68,10 @@ end;
 procedure ReleaseExceptionObject;
 begin
   If ExceptObjectStack=nil then begin
-    runerror(0); // which error?
+    runerror(231); // which error?
   end else begin
     if ExceptObjectStack^.refcount = 0 then begin
-      runerror(0); // which error?
+      runerror(231); // which error?
     end;
     Dec(ExceptObjectStack^.refcount);
   end;
@@ -311,7 +311,10 @@ begin
 end;
 {
   $Log$
-  Revision 1.12  2003-10-06 15:59:20  florian
+  Revision 1.13  2003-11-26 20:12:08  michael
+  + New runerror 231 (exception stack error) and 232 (nothread support)
+
+  Revision 1.12  2003/10/06 15:59:20  florian
     + applied patch for ref. counted exceptions by Johannes Berg
 
   Revision 1.11  2003/09/06 21:56:29  marco

rtl/objpas/sysutils/stre.inc

@@ -61,6 +61,7 @@ Const
    SInvalidPointer = 'Invalid pointer operation';
    SInvalidVarCast = 'Invalid variant type case';
    SInvalidVarOp = 'Invalid variant operation';
+   SNoThreadSupport = 'Threads not supported. Recompile program with thread driver.';
    SOutOfMemory = 'Out of memory';
    SOverflow = 'Floating point overflow';
    SPrivilege = 'Privileged instruction';
@@ -76,7 +77,10 @@ Const
 
 {
   $Log$
-  Revision 1.1  2003-10-06 21:01:06  peter
+  Revision 1.2  2003-11-26 20:12:08  michael
+  + New runerror 231 (exception stack error) and 232 (nothread support)
+
+  Revision 1.1  2003/10/06 21:01:06  peter
     * moved classes unit to rtl
 
   Revision 1.8  2003/01/01 20:58:07  florian

rtl/objpas/sysutils/sysutilh.inc

@@ -152,6 +152,7 @@ type
    EPackageError = class(Exception);
 
    ESafecallException = class(Exception);
+   ENoThreadSupport = Class(Exception);
 
 
    { Exception handling routines }
@@ -218,7 +219,10 @@ Type
 
 {
   $Log$
-  Revision 1.3  2003-11-26 20:00:19  florian
+  Revision 1.4  2003-11-26 20:12:08  michael
+  + New runerror 231 (exception stack error) and 232 (nothread support)
+
+  Revision 1.3  2003/11/26 20:00:19  florian
     * error handling for Variants improved
 
   Revision 1.2  2003/10/25 23:43:59  hajny

rtl/objpas/sysutils/sysutils.inc

@@ -237,6 +237,7 @@ begin
   228 : E:=EExternalException.Create(SExternalException);
   229 : E:=EIntfCastError.Create(SIntfCastError);
   230 : E:=ESafecallException.Create(SSafecallException);
+  232 : E:=ENoThreadSupport.Create(SNoThreadSupport);
   else
    E:=Exception.CreateFmt (SUnKnownRunTimeError,[Errno]);
   end;
@@ -382,7 +383,10 @@ end;
 
 {
   $Log$
-  Revision 1.2  2003-11-26 20:00:19  florian
+  Revision 1.3  2003-11-26 20:12:08  michael
+  + New runerror 231 (exception stack error) and 232 (nothread support)
+
+  Revision 1.2  2003/11/26 20:00:19  florian
     * error handling for Variants improved
 
   Revision 1.1  2003/10/06 21:01:06  peter