paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 14:49:47 +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;
releaseright : boolean;
alignmentrequirement,
len : aint;
len : tcgint;
r : tregister;
{$if not defined(cpu64bitalu) and not defined(cpuhighleveltarget)}
r64 : tregister64;

2
compiler/ncnv.pas
View File

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