diff options
author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-08-30 20:53:59 +0000 |
---|---|---|
committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-08-30 20:53:59 +0000 |
commit | c463051a2959f0a71c556931a39e7b2e7a1726a3 (patch) | |
tree | 111b365d2d8c698e42c7955aca92c4ea3e2b0bc1 /compiler/nld.pas | |
parent | b625955efb7d1bc5f2706e6cf91852c49c492601 (diff) | |
download | fpc-c463051a2959f0a71c556931a39e7b2e7a1726a3.tar.gz |
* better calculation of estimated stack frame size
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@46733 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/nld.pas')
-rw-r--r-- | compiler/nld.pas | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/nld.pas b/compiler/nld.pas index e2bccbc080..ab05bd8776 100644 --- a/compiler/nld.pas +++ b/compiler/nld.pas @@ -1253,6 +1253,8 @@ implementation if do_variant then tarraydef(resultdef).elementdef:=search_system_type('TVARREC').typedef; expectloc:=LOC_CREFERENCE; + + inc(current_procinfo.estimatedtempsize,(tarraydef(resultdef).highrange+1)*tarraydef(resultdef).elementdef.size); end; |