diff options
Diffstat (limited to 'rtl/java')
| -rw-r--r-- | rtl/java/jsystem.inc | 2 | ||||
| -rw-r--r-- | rtl/java/jsystemh.inc | 4 |
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} |