paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 12:25:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support for "exotic" locations in load_left_right()

Browse Source 
git-svn-id: trunk@3556 -
This commit is contained in:
Jonas Maebe 2006-05-17 19:12:00 +00:00
parent 67dc63048c
commit a3cb1b1523
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/powerpc/nppcadd.pas
View File

@ -111,6 +111,8 @@ interface
procedure load_node(var n: tnode); procedure load_node(var n: tnode);
begin begin
case n.location.loc of case n.location.loc of
LOC_CREGISTER:
;
LOC_REGISTER: LOC_REGISTER:
if (not cmpop) and if (not cmpop) and
((nodetype <> muln) or ((nodetype <> muln) or
@ -147,6 +149,8 @@ interface
end; end;
end; end;
end; end;
else
location_force_reg(current_asmdata.CurrAsmList,n.location,def_cgsize(n.resulttype.def),false);
end; end;
end; end;

4
compiler/powerpc64/nppcadd.pas
View File

@ -99,6 +99,8 @@ procedure tppcaddnode.load_left_right(cmpop, load_constants: boolean);
procedure load_node(var n: tnode); procedure load_node(var n: tnode);
begin begin
case n.location.loc of case n.location.loc of
LOC_CREGISTER:
;
LOC_REGISTER: LOC_REGISTER:
if not cmpop then if not cmpop then
begin begin
@ -123,6 +125,8 @@ procedure tppcaddnode.load_left_right(cmpop, load_constants: boolean);
location.register := n.location.register; location.register := n.location.register;
end; end;
end; end;
else
location_force_reg(current_asmdata.CurrAsmList,n.location,def_cgsize(n.resulttype.def),false);
end; end;
end; end;