paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 13:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

Set MaxLocalsSize according to address size not register size

Browse Source 
git-svn-id: trunk@39925 -
This commit is contained in:
pierre 2018-10-13 12:00:31 +00:00
parent 5ccced201a
commit c9c8ff1eef
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/globtype.pas
View File

@ -89,8 +89,8 @@ interface
{ Maximum possible size of locals space (stack frame) } { Maximum possible size of locals space (stack frame) }
Const Const
{$if defined(cpu8bitalu) or defined(cpu16bitalu)} {$if defined(cpu16bitaddr)}
MaxLocalsSize = High(AWord); MaxLocalsSize = High(PUint);
{$else} {$else}
MaxLocalsSize = High(longint) - 15; MaxLocalsSize = High(longint) - 15;
{$endif} {$endif}