* 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: http://svn.freepascal.org/svn/fpc/trunk@2733 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 3 deletions

diff --git a/compiler/powerpc/nppcadd.pas b/compiler/powerpc/nppcadd.pas
index 754404f99b..649419e7cb 100644
--- a/compiler/powerpc/nppcadd.pas
+++ b/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;