-#if 0 /* This generates Bad nodes when we don't want it.
- Call it with a check for valid cgana information in local_optimize. */
- if (ARR_LEN(arr) == 0 && get_opt_optimize() && get_opt_closed_world() && get_opt_dyn_meth_dispatch()) {
- /* Kann vorkommen, wenn der Vorgänger beispielsweise eine
- * Sel-Operation war, die keine Methoden zurückgeben
- * konnte. Wir ersetzen die Call-Operation ebenfalls durch
- * eine Bad-Operation. Die Verlinkung muss wiederhergestellt
- * werden! */
- ir_node *mem = get_Call_mem(call);
- ir_node *blk = get_nodes_block(call);
- turn_into_tuple (call, pn_Call_max);
- set_Tuple_pred(call, pn_Call_M_regular , mem);
- set_Tuple_pred(call, pn_Call_T_result , new_Bad());
- set_Tuple_pred(call, pn_Call_P_value_res_base, new_Bad());
- set_Tuple_pred(call, pn_Call_X_regular , new_r_Jmp(current_ir_graph, blk));
- set_Tuple_pred(call, pn_Call_X_except , new_Bad()); /* new_Jmp() ?? new_Raise() ?? */
- set_Tuple_pred(call, pn_Call_M_except , new_Bad());
-
- } else
-#endif
- {
- set_Call_callee_arr(call, ARR_LEN(arr), arr);
- }