소스 검색

* changed ExceptTryLevel from nativeint to objpasint

git-svn-id: trunk@27234 -
nickysn 11 년 전
부모
커밋
ff6b258379
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  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    : nativeint;
+  ExceptTryLevel    : ObjpasInt;
 
 Function RaiseList : PExceptObject;
 begin