paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use voidpointertype.size (supports i8086 far data memory models) instead of

Browse Source 
sizeof(pint) to return the size of tabstractpointerdef

git-svn-id: trunk@27246 -
This commit is contained in:
nickysn 2014-03-23 20:34:19 +00:00
parent 7107e9d5ea
commit 97a3f50351
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/symdef.pas
View File

@ -194,6 +194,8 @@ interface
procedure ppuwrite(ppufile:tcompilerppufile);override;
procedure buildderef;override;
procedure deref;override;
function size:asizeint;override;
function alignment:shortint;override;
end;
@ -2977,7 +2979,6 @@ implementation
begin
inherited create(dt);
pointeddef:=def;
savesize:=sizeof(pint);
end;
@ -2985,7 +2986,6 @@ implementation
begin
inherited ppuload(dt,ppufile);
ppufile.getderef(pointeddefderef);
savesize:=sizeof(pint);
end;
@ -3003,6 +3003,18 @@ implementation
end;
function tabstractpointerdef.size: asizeint;
begin
Result:=voidpointertype.size;
end;
function tabstractpointerdef.alignment: shortint;
begin
alignment:=size_2_align(voidpointertype.size);
end;
procedure tabstractpointerdef.ppuwrite(ppufile:tcompilerppufile);
begin
inherited ppuwrite(ppufile);
@ -3154,7 +3166,6 @@ implementation
result:=tclassrefdef.create(tforwarddef(pointeddef).getcopy)
else
result:=tclassrefdef.create(pointeddef);
tclassrefdef(result).savesize:=savesize;
end;