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,
819       ri = ai;
825 	ri = gimplify_build2 (bsi, MINUS_EXPR, inner_type, ai, bi);
835       ri = ai;
840       ri = gimplify_build2 (bsi, code, inner_type, ai, bi);
845       ri = ai;
850       ri = gimplify_build2 (bsi, code, inner_type, ai, bi);
864       ri = gimplify_build2 (bsi, code, inner_type, ai, bi);
870       ri = gimplify_build2 (bsi, code, inner_type, ai, bi);
884 expand_complex_libcall (block_stmt_iterator *bsi, tree ar, tree ai,
893   args = tree_cons (NULL, ai, args);
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;
946       ri = ai;
951       if (TREE_CODE (ai) == REAL_CST
952 	  && REAL_VALUES_IDENTICAL (TREE_REAL_CST (ai), dconst1))
955 	ri = gimplify_build2 (bsi, MULT_EXPR, inner_type, ai, br);
959       rr = gimplify_build2 (bsi, MULT_EXPR, inner_type, ai, bi);
966       ri = gimplify_build2 (bsi, MULT_EXPR, inner_type, ai, br);
970       rr = gimplify_build2 (bsi, MULT_EXPR, inner_type, ai, bi);
978 	  expand_complex_libcall (bsi, ar, ai, br, bi, MULT_EXPR);
986 	  t2 = gimplify_build2 (bsi, MULT_EXPR, inner_type, ai, bi);
991 	  if (ar == br && ai == bi)
994 	    t4 = gimplify_build2 (bsi, MULT_EXPR, inner_type, ai, br);
1009 	a / b = ((ar*br + ai*bi)/t) + i((ai*br - ar*bi)/t)
1015 			     tree ar, tree ai, tree br, tree bi,
1025   t2 = gimplify_build2 (bsi, MULT_EXPR, inner_type, ai, bi);
1029   t1 = gimplify_build2 (bsi, MULT_EXPR, inner_type, ai, br);
1042 			 tree ar, tree ai, tree br, tree bi,
1097       tr = (ar * ratio) + ai;
1098       ti = (ai * ratio) - ar;
1115       tr = gimplify_build2 (bsi, PLUS_EXPR, inner_type, t1, ai);
1117       t1 = gimplify_build2 (bsi, MULT_EXPR, inner_type, ai, ratio);
1153       t1 = gimplify_build2 (bsi, MULT_EXPR, inner_type, ai, ratio);
1157       ti = gimplify_build2 (bsi, MINUS_EXPR, inner_type, ai, t1);
1184 			 tree ar, tree ai, tree br, tree bi,
1194       ri = ai;
1198       rr = ai;
1205       ri = gimplify_build2 (bsi, code, inner_type, ai, br);
1209       rr = gimplify_build2 (bsi, code, inner_type, ai, bi);
1215       ri = gimplify_build2 (bsi, code, inner_type, ai, br);
1219       rr = gimplify_build2 (bsi, code, inner_type, ai, 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);
1259 	-a = (-ar) + i(-ai)
1264 			 tree ar, tree ai)
1269   ri = gimplify_build1 (bsi, NEGATE_EXPR, inner_type, ai);
1275 	~a = (ar) + i(-ai)
1280 			  tree ar, tree ai)
1284   ri = gimplify_build1 (bsi, NEGATE_EXPR, inner_type, ai);
1292 expand_complex_comparison (block_stmt_iterator *bsi, tree ar, tree ai,
1298   ci = gimplify_build2 (bsi, code, boolean_type_node, ai, bi);
1331   tree ac, ar, ai, bc, br, bi;
1409   ai = extract_component (bsi, ac, 1, true);
1417 	br = ar, bi = ai;
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);
1465       expand_complex_negation (bsi, inner_type, ar, ai);
1469       expand_complex_conjugate (bsi, inner_type, ar, ai);
1474       expand_complex_comparison (bsi, ar, ai, br, bi, code);