paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 04:29:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@45816 -
This commit is contained in:
pierre 2020-07-21 05:23:36 +00:00
parent 667a010357
commit 57b8f28574
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgld.pas
View File

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

2
compiler/ncnv.pas
View File

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