contrib/gcc/tree-complex.c

803 	a + b = (ar + br) + i(ai + bi)
804 	a - b = (ar - br) + i(ai + bi)
809 			 tree ar, tree ai, tree br, tree bi,
825 	ri = gimplify_build2 (bsi, MINUS_EXPR, inner_type, ai, bi);
827 	ri = bi;
840       ri = gimplify_build2 (bsi, code, inner_type, ai, bi);
850       ri = gimplify_build2 (bsi, code, inner_type, ai, bi);
857       ri = bi;
864       ri = gimplify_build2 (bsi, code, inner_type, ai, bi);
870       ri = gimplify_build2 (bsi, code, inner_type, ai, bi);
885 			tree br, tree bi, enum tree_code code)
891   args = tree_cons (NULL, bi, NULL);
924 	a * b = (ar*br - ai*bi) + i(ar*bi + br*ai)
929 			       tree ar, tree ai, tree br, tree bi,
938       ri = ai, ai = bi, bi = ri;
959       rr = gimplify_build2 (bsi, MULT_EXPR, inner_type, ai, bi);
970       rr = gimplify_build2 (bsi, MULT_EXPR, inner_type, ai, bi);
972       ri = gimplify_build2 (bsi, MULT_EXPR, inner_type, ar, bi);
978 	  expand_complex_libcall (bsi, ar, ai, br, bi, MULT_EXPR);
986 	  t2 = gimplify_build2 (bsi, MULT_EXPR, inner_type, ai, bi);
987 	  t3 = gimplify_build2 (bsi, MULT_EXPR, inner_type, ar, bi);
991 	  if (ar == br && ai == bi)
1009 	a / b = ((ar*br + ai*bi)/t) + i((ai*br - ar*bi)/t)
1010 	    t = br*br + bi*bi
1015 			     tree ar, tree ai, tree br, tree bi,
1021   t2 = gimplify_build2 (bsi, MULT_EXPR, inner_type, bi, bi);
1025   t2 = gimplify_build2 (bsi, MULT_EXPR, inner_type, ai, bi);
1030   t2 = gimplify_build2 (bsi, MULT_EXPR, inner_type, ar, bi);
1042 			 tree ar, tree ai, tree br, tree bi,
1048   /* Examine |br| < |bi|, and branch.  */
1050   t2 = gimplify_build1 (bsi, ABS_EXPR, inner_type, bi);
1095       ratio = br/bi;
1096       div = (br * ratio) + bi;
1109       ratio = gimplify_build2 (bsi, code, inner_type, br, bi);
1112       div = gimplify_build2 (bsi, PLUS_EXPR, inner_type, t1, bi);
1148       ratio = gimplify_build2 (bsi, code, inner_type, bi, br);
1150       t1 = gimplify_build2 (bsi, MULT_EXPR, inner_type, bi, ratio);
1184 			 tree ar, tree ai, tree br, tree bi,
1199       ri = gimplify_build2 (bsi, code, inner_type, ar, bi);
1209       rr = gimplify_build2 (bsi, code, inner_type, ai, bi);
1219       rr = gimplify_build2 (bsi, code, inner_type, ai, bi);
1220       ri = gimplify_build2 (bsi, code, inner_type, ar, bi);
1230 	  expand_complex_div_straight (bsi, inner_type, ar, ai, br, bi, code);
1236 	      expand_complex_libcall (bsi, ar, ai, br, bi, code);
1243 	  expand_complex_div_wide (bsi, inner_type, ar, ai, br, bi, code);
1293 			   tree br, tree bi, enum tree_code code)
1298   ci = gimplify_build2 (bsi, code, boolean_type_node, ai, bi);
1331   tree ac, ar, ai, bc, br, bi;
1412     bc = br = bi = NULL;
1417 	br = ar, bi = ai;
1421 	  bi = extract_component (bsi, bc, 1, true);
1449       expand_complex_addition (bsi, inner_type, ar, ai, br, bi, code, al, bl);
1453       expand_complex_multiplication (bsi, inner_type, ar, ai, br, bi, al, bl);
1461       expand_complex_division (bsi, inner_type, ar, ai, br, bi, code, al, bl);
1474       expand_complex_comparison (bsi, ar, ai, br, bi, code);