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

* don't set high register of 64 bit result for comparisons in case

Browse Source 
one of the operands is a constant (missing begin/end after "if")

git-svn-id: trunk@2733 -
This commit is contained in:
Jonas Maebe 2006-03-04 14:14:39 +00:00
parent b0a394edfc
commit 8f6b52d482
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/powerpc/nppcadd.pas
View File

@ -127,9 +127,11 @@ interface
begin
location_force_reg(exprasmlist,n.location,def_cgsize(n.resulttype.def),false);
if not cmpop then
location.register := n.location.register;
if is_64bit(n.resulttype.def) then
location.register64.reghi := n.location.register64.reghi;
begin
location.register := n.location.register;
if is_64bit(n.resulttype.def) then
location.register64.reghi := n.location.register64.reghi;
end;
end;
end;
end;