- reverted merge of 9418 because it causes testsuite regressions and it

    is not a fix for anything

git-svn-id: branches/fixes_2_2@9864 -

compiler/nadd.pas

@@ -479,7 +479,7 @@ implementation
                 end
             end;
 
-        { Add,Sub,Mul with constant 0, 1 or -1?  }
+        { Add,Sub,Mul with constant 0 or 1?  }
         if is_constintnode(right) and is_integer(left.resultdef) then
           begin
             if tordconstnode(right).value = 0 then
@@ -497,13 +497,6 @@ implementation
                   muln:
                    result := left.getcopy;
                 end;
-              end
-            else if tordconstnode(right).value = -1 then
-              begin
-                case nodetype of
-                  muln:
-                   result := cunaryminusnode.create(left.getcopy);
-                end;
               end;
             if assigned(result) then
               exit;
@@ -527,13 +520,6 @@ implementation
                   muln:
                    result := right.getcopy;
                 end;
-              end
-            else if tordconstnode(left).value = -1 then
-              begin
-                case nodetype of
-                  muln:
-                   result := cunaryminusnode.create(right.getcopy);
-                end;
               end;
             if assigned(result) then
               exit;