Explorar o código

* changed ExceptTryLevel from longint to nativeint (because i8086)

git-svn-id: trunk@26658 -
nickysn %!s(int64=11) %!d(string=hai) anos
pai
achega
f4f35ad47b
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      rtl/inc/except.inc

+ 1 - 1
rtl/inc/except.inc

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