|
@@ -47,7 +47,7 @@ Var
|
|
|
{$endif FPC_HAS_FEATURE_THREADING}
|
|
{$endif FPC_HAS_FEATURE_THREADING}
|
|
|
ExceptAddrStack : PExceptAddr;
|
|
ExceptAddrStack : PExceptAddr;
|
|
|
ExceptObjectStack : PExceptObject;
|
|
ExceptObjectStack : PExceptObject;
|
|
|
- ExceptTryLevel : nativeint;
|
|
|
|
|
|
|
+ ExceptTryLevel : ObjpasInt;
|
|
|
|
|
|
|
|
Function RaiseList : PExceptObject;
|
|
Function RaiseList : PExceptObject;
|
|
|
begin
|
|
begin
|
nickysn