소스 검색

* avoid range check error

git-svn-id: trunk@18786 -
florian 14 년 전
부모
커밋
2f4fcf7dee
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      compiler/cclasses.pas

+ 1 - 1
compiler/cclasses.pas

@@ -46,7 +46,7 @@ interface
        tmemdebug = class
        tmemdebug = class
        private
        private
           totalmem,
           totalmem,
-          startmem : integer;
+          startmem : int64;
           infostr  : string[40];
           infostr  : string[40];
        public
        public
           constructor Create(const s:string);
           constructor Create(const s:string);