From 57b8f28574087bde2fdca66d5f26e8eecbb2f433 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 21 Jul 2020 05:23:36 +0000
Subject: [PATCH]  Avoid overflow errors on z80 CPU by changing local variable
 type from aint to tcgint

git-svn-id: trunk@45816 -
---
 compiler/ncgld.pas | 2 +-
 compiler/ncnv.pas  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/ncgld.pas b/compiler/ncgld.pas
index 17d3dfe589..5403254bf9 100644
--- a/compiler/ncgld.pas
+++ b/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;
diff --git a/compiler/ncnv.pas b/compiler/ncnv.pas
index 15efd9eb47..72a8e1dfc9 100644
--- a/compiler/ncnv.pas
+++ b/compiler/ncnv.pas
@@ -1175,7 +1175,7 @@ implementation
         newstat  : tstatementnode;
         restemp  : ttempcreatenode;
         pchtemp  : pchar;
-        arrsize  : aint;
+        arrsize  : tcgint;
         chartype : string[8];
       begin
         result := nil;