Merged revisions 2733 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r2733 | jonas | 2006-03-04 15:14:39 +0100 (Sat, 04 Mar 2006) | 3 lines

  * don't set high register of 64 bit result for comparisons in case
    one of the operands is a constant (missing begin/end after "if")

........

git-svn-id: branches/fixes_2_0@2736 -

compiler/powerpc/nppcadd.pas

@@ -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;