paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 01:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use voidpointertype.size to obtain the current data (self) pointer size,

Browse Source 
instead of checking the i8086 memory model manually in tprocvardef.size

git-svn-id: trunk@27313 -
This commit is contained in:
nickysn 2014-03-28 00:40:08 +00:00
parent 359bd9a13a
commit b1f69349f8
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/symdef.pas
View File

@ -5824,18 +5824,15 @@ implementation
function tprocvardef.size : asizeint; function tprocvardef.size : asizeint;
var var
far_code_extra_bytes: integer = 0; far_code_extra_bytes: integer = 0;
far_data_extra_bytes: integer = 0;
begin begin
{$ifdef i8086} {$ifdef i8086}
if po_far in procoptions then if po_far in procoptions then
far_code_extra_bytes:=2; far_code_extra_bytes:=2;
if current_settings.x86memorymodel in x86_far_data_models then
far_data_extra_bytes:=2;
{$endif i8086} {$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)+far_code_extra_bytes+far_data_extra_bytes size:=sizeof(pint)+far_code_extra_bytes+voidpointertype.size
else else
size:=sizeof(pint)+far_code_extra_bytes; size:=sizeof(pint)+far_code_extra_bytes;
end; end;