paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 15:49:16 +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; function tprocvardef.size : asizeint;
var
far_code_extra_bytes: integer = 0;
far_data_extra_bytes: integer = 0;
begin 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 if ((po_methodpointer in procoptions) or
is_nested_pd(self)) and is_nested_pd(self)) and
not(po_addressonly in procoptions) then not(po_addressonly in procoptions) then
size:=2*sizeof(pint) size:=2*sizeof(pint)+far_code_extra_bytes+far_data_extra_bytes
else else
size:=sizeof(pint); size:=sizeof(pint)+far_code_extra_bytes;
end; end;