paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 14:47:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

Generate error if stack size of a procedure/function is bigger than globally allocated stack size

Browse Source 
git-svn-id: trunk@36506 -
This commit is contained in:
pierre 2017-06-16 07:47:17 +00:00
parent c1187a17cd
commit 8b6563bef2
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/i8086/tgcpu.pas
View File

@ -43,6 +43,8 @@ unit tgcpu;
implementation
uses
globals,
verbose,
cpubase;
{ ttgi8086 }
@ -51,6 +53,8 @@ procedure ttgi8086.alloctemp(list: TAsmList; size: asizeint; alignment: shortint
begin
inherited;
ref.segment:=NR_SS;
if abs(ref.offset) > globals.StackSize then
message(cg_e_localsize_too_big);
end;
begin