|
@@ -5604,19 +5604,13 @@ implementation
|
|
|
|
|
|
|
|
|
|
function tprocvardef.size : asizeint;
|
|
function tprocvardef.size : asizeint;
|
|
- var
|
|
|
|
- far_code_extra_bytes: integer = 0;
|
|
|
|
begin
|
|
begin
|
|
-{$ifdef i8086}
|
|
|
|
- if po_far in procoptions then
|
|
|
|
- far_code_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:=sizeof(pint)+far_code_extra_bytes+voidpointertype.size
|
|
|
|
|
|
+ size:=voidcodepointertype.size+voidpointertype.size
|
|
else
|
|
else
|
|
- size:=sizeof(pint)+far_code_extra_bytes;
|
|
|
|
|
|
+ size:=voidcodepointertype.size;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|