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

* take into account far code and far data in tprocvardef.size

Browse Source 
git-svn-id: trunk@24823 -
This commit is contained in:
nickysn 2013-06-08 23:32:47 +00:00
parent 86637a9ff9
commit c1984bdf56
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/symdef.pas
View File

@ -5389,13 +5389,22 @@ implementation
function tprocvardef.size : asizeint;
var
far_code_extra_bytes: integer = 0;
far_data_extra_bytes: integer = 0;
begin
{$ifdef i8086}
if po_far in procoptions then
far_code_extra_bytes:=2;
if current_settings.x86memorymodel in x86_far_data_models then
far_data_extra_bytes:=2;
{$endif i8086}
if ((po_methodpointer in procoptions) or
is_nested_pd(self)) and
not(po_addressonly in procoptions) then
size:=2*sizeof(pint)
size:=2*sizeof(pint)+far_code_extra_bytes+far_data_extra_bytes
else
size:=sizeof(pint);
size:=sizeof(pint)+far_code_extra_bytes;
end;