paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 13:19:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* set tpointerdef.savesize correctly for far and huge pointers

Browse Source 
git-svn-id: trunk@24551 -
This commit is contained in:
nickysn 2013-05-22 11:54:42 +00:00
parent 905ab16ea4
commit e810cabf50
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/symdef.pas
View File

@ -192,6 +192,7 @@ interface
constructor create(def:tdef);
{$ifdef x86}
constructor createx86(def:tdef;x86typ:tx86pointertyp);
procedure update_savesize;
{$endif x86}
function getcopy:tstoreddef;override;
constructor ppuload(ppufile:tcompilerppufile);
@ -2725,6 +2726,7 @@ 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;
@ -2735,8 +2737,18 @@ implementation
begin
inherited create(pointerdef,def);
x86pointertyp := x86typ;
update_savesize;
has_pointer_math:=cs_pointermath in current_settings.localswitches;
end;
procedure tpointerdef.update_savesize;
begin
if x86pointertyp in [x86pt_far,x86pt_huge] then
savesize:=sizeof(pint)+2
else
savesize:=sizeof(pint);
end;
{$endif x86}
@ -2745,6 +2757,7 @@ implementation
inherited ppuload(pointerdef,ppufile);
{$ifdef x86}
x86pointertyp:=tx86pointertyp(ppufile.getbyte);
update_savesize;
{$endif x86}
has_pointer_math:=(ppufile.getbyte<>0);
end;