paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 06:59:26 +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
compiler
powerpc
nppcadd.pas
powerpc64
nppcadd.pas

4
compiler/powerpc/nppcadd.pas
View File

@ -111,6 +111,8 @@ interface
procedure load_node(var n: tnode);
begin
case n.location.loc of
LOC_CREGISTER:
;
LOC_REGISTER:
if (not cmpop) and
((nodetype <> muln) or
@ -147,6 +149,8 @@ interface
end;
end;
end;
else
location_force_reg(current_asmdata.CurrAsmList,n.location,def_cgsize(n.resulttype.def),false);
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);
begin
case n.location.loc of
LOC_CREGISTER:
;
LOC_REGISTER:
if not cmpop then
begin
@ -123,6 +125,8 @@ procedure tppcaddnode.load_left_right(cmpop, load_constants: boolean);
location.register := n.location.register;
end;
end;
else
location_force_reg(current_asmdata.CurrAsmList,n.location,def_cgsize(n.resulttype.def),false);
end;
end;