|
@@ -208,8 +208,8 @@ interface
|
|
|
constructor create(def:tdef);
|
|
|
{$ifdef x86}
|
|
|
constructor createx86(def:tdef;x86typ:tx86pointertyp);
|
|
|
- procedure update_savesize;
|
|
|
{$endif x86}
|
|
|
+ function size:asizeint;override;
|
|
|
function getcopy:tstoreddef;override;
|
|
|
constructor ppuload(ppufile:tcompilerppufile);
|
|
|
procedure ppuwrite(ppufile:tcompilerppufile);override;
|
|
@@ -2829,7 +2829,6 @@ implementation
|
|
|
inherited create(pointerdef,def);
|
|
|
{$ifdef x86}
|
|
|
x86pointertyp := default_x86_data_pointer_type;
|
|
|
- update_savesize;
|
|
|
{$endif x86}
|
|
|
has_pointer_math:=cs_pointermath in current_settings.localswitches;
|
|
|
end;
|
|
@@ -2840,19 +2839,20 @@ implementation
|
|
|
begin
|
|
|
inherited create(pointerdef,def);
|
|
|
x86pointertyp := x86typ;
|
|
|
- update_savesize;
|
|
|
has_pointer_math:=cs_pointermath in current_settings.localswitches;
|
|
|
end;
|
|
|
+{$endif x86}
|
|
|
+
|
|
|
|
|
|
- procedure tpointerdef.update_savesize;
|
|
|
+ function tpointerdef.size: asizeint;
|
|
|
begin
|
|
|
+{$ifdef x86}
|
|
|
if x86pointertyp in [x86pt_far,x86pt_huge] then
|
|
|
- savesize:=sizeof(pint)+2
|
|
|
+ result:=sizeof(pint)+2
|
|
|
else
|
|
|
- savesize:=sizeof(pint);
|
|
|
- end;
|
|
|
-
|
|
|
{$endif x86}
|
|
|
+ result:=sizeof(pint);
|
|
|
+ end;
|
|
|
|
|
|
|
|
|
constructor tpointerdef.ppuload(ppufile:tcompilerppufile);
|
|
@@ -2860,7 +2860,6 @@ implementation
|
|
|
inherited ppuload(pointerdef,ppufile);
|
|
|
{$ifdef x86}
|
|
|
x86pointertyp:=tx86pointertyp(ppufile.getbyte);
|
|
|
- update_savesize;
|
|
|
{$endif x86}
|
|
|
has_pointer_math:=(ppufile.getbyte<>0);
|
|
|
end;
|