+ Add RTE 236 for thread errors:

  inc/systemh.inc and java/jsystemh.inc:
    + Add reThreadError (and also reNoDynLibsSupport) to TRuntimeError.
    * Add new values to RuntimeErrorExitCodes after extension of TRuntimeError
  inc/system.inc and java/jsystem.inc:
    * use RTE 236 in fpc_threaderror.
  objpas/sysconst.pp and objpas/sysutils/stre.inc:
    + Add SThreadError string constant.
  objpas/sysutils/sysutilh.inc:
    + Add EThreadError class.
  objpas/sysutils/sysutils.inc
    + Add 236 to EThreadError conversion to exeptmap.



git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@38584 3ad0048d-3df7-0310-abae-a5850022a9f2

2 files changed, 3 insertions, 3 deletions

diff --git a/rtl/java/jsystem.inc b/rtl/java/jsystem.inc
index 0ad4d12ef4..1f75489f48 100644
--- a/rtl/java/jsystem.inc
+++ b/rtl/java/jsystem.inc
@@ -740,7 +740,7 @@ end;
 
 procedure fpc_threaderror; [public,alias:'FPC_THREADERROR'];
 begin
-  HandleErrorAddrFrameInd(6,get_pc_addr,get_frame);
+  HandleErrorAddrFrameInd(236{RuntimeErrorExitCodes[reThreadError]},get_pc_addr,get_frame);
 end;
 
 
diff --git a/rtl/java/jsystemh.inc b/rtl/java/jsystemh.inc
index 201ad4c783..3605c14fa1 100644
--- a/rtl/java/jsystemh.inc
+++ b/rtl/java/jsystemh.inc
@@ -763,7 +763,7 @@ type
      reStackOverflow, reVarTypeCast, reVarInvalidOp, reVarDispatch,
      reVarArrayCreate, reVarNotArray, reVarArrayBounds, reAssertionFailed,
      reExternalException, reIntfCastError, reSafeCallError, reQuit,
-     reCodesetConversion);
+     reCodesetConversion, reNoDynLibsSupport, reThreadError);
 
 Const
   // Please keep locations corresponding to location in array above
@@ -774,7 +774,7 @@ Const
      202, 220, 221, 222,
      223, 224, 225, 227,
      212, 228, 229, 233,
-     234);
+     234, 235, 236);
 
 Procedure Error(RunTimeError : TRunTimeError);
 {$ifdef FPC_HAS_FEATURE_COMMANDARGS}