浏览代码

Avoid overflow errors on z80 CPU by changing local variable type from aint to tcgint

git-svn-id: trunk@45816 -
pierre 5 年之前
父节点
当前提交
57b8f28574
共有 2 个文件被更改,包括 2 次插入2 次删除
  1. 1 1
      compiler/ncgld.pas
  2. 1 1
      compiler/ncnv.pas

+ 1 - 1
compiler/ncgld.pas

@@ -692,7 +692,7 @@ implementation
          href : treference;
          releaseright : boolean;
          alignmentrequirement,
-         len : aint;
+         len : tcgint;
          r : tregister;
          {$if not defined(cpu64bitalu) and not defined(cpuhighleveltarget)}
          r64 : tregister64;

+ 1 - 1
compiler/ncnv.pas

@@ -1175,7 +1175,7 @@ implementation
         newstat  : tstatementnode;
         restemp  : ttempcreatenode;
         pchtemp  : pchar;
-        arrsize  : aint;
+        arrsize  : tcgint;
         chartype : string[8];
       begin
         result := nil;