paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-02 20:50:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

* forgotten part of r18958

Browse Source 
git-svn-id: trunk@18959 -
This commit is contained in:
florian 2011-09-03 19:45:17 +00:00
parent 6211a83865
commit 7b72e21743
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/aasmtai.pas
View File

@ -650,9 +650,11 @@ interface
tai_align_class = class of tai_align_abstract;
tai_varloc = class(tai)
newlocation : tregister;
newlocation,
newlocationhi : tregister;
varsym : tsym;
constructor create(sym : tsym;loc : tregister);
constructor create64(sym : tsym;loc,lochi : tregister);
constructor ppuload(t:taitype;ppufile:tcompilerppufile);override;
procedure ppuwrite(ppufile:tcompilerppufile);override;
procedure buildderefimpl;override;
@ -776,6 +778,17 @@ implementation
inherited Create;
typ:=ait_varloc;
newlocation:=loc;
newlocationhi:=NR_NO;
varsym:=sym;
end;
constructor tai_varloc.create64(sym: tsym; loc: tregister;lochi : tregister);
begin
inherited Create;
typ:=ait_varloc;
newlocation:=loc;
newlocationhi:=lochi;
varsym:=sym;
end;