contrib/gcc/haifa-sched.c

632 insn_cost (rtx insn, rtx link, rtx used)
634   return insn_cost1 (insn, used ? REG_NOTE_KIND (link) : REG_NOTE_MAX,
635 		     link, used);
647 insn_cost1 (rtx insn, enum reg_note dep_type, rtx link, rtx used)
683       gcc_assert (!link || dep_type == REG_NOTE_KIND (link));
704 	  gcc_assert (link);
706 	    cost = targetm.sched.adjust_cost (used, link, insn, cost);
721   rtx link;
756 	      for (link = INSN_DEPEND (twin); link; link = XEXP (link, 1))
761 		  next = XEXP (link, 0);
776 			      && (DEP_STATUS (link) & SPECULATIVE)
783 						  REG_NOTE_KIND (link) :
785 						  twin == insn ? link : 0,
824   rtx link;
879       link = find_insn_list (tmp, INSN_DEPEND (last_scheduled_insn));
880       if (link == 0 || insn_cost (last_scheduled_insn, link, tmp) == 1)
882       else if (REG_NOTE_KIND (link) == 0)	/* Data dependence.  */
887       link = find_insn_list (tmp2, INSN_DEPEND (last_scheduled_insn));
888       if (link == 0 || insn_cost (last_scheduled_insn, link, tmp2) == 1)
890       else if (REG_NOTE_KIND (link) == 0)	/* Data dependence.  */
903   for (link = INSN_DEPEND (tmp); link; link = XEXP (link, 1))
907   for (link = INSN_DEPEND (tmp2); link; link = XEXP (link, 1))
944   rtx link = alloc_INSN_LIST (insn, insn_queue[next_q]);
948   insn_queue[next_q] = link;
1148   rtx link;
1191   for (link = INSN_DEPEND (insn); link; link = XEXP (link, 1))
1193       rtx next = XEXP (link, 0);
1212 	  gcc_assert (XEXP (link, 1) == 0);
1671   rtx link;
1677   for (link = insn_queue[q_ptr]; link; link = XEXP (link, 1))
1679       insn = XEXP (link, 0);
1713 	  if ((link = insn_queue[NEXT_Q_AFTER (q_ptr, stalls)]))
1715 	      for (; link; link = XEXP (link, 1))
1717 		  insn = XEXP (link, 0);
1803   rtx link;
1831       if ((link = insn_queue[NEXT_Q_AFTER (q_ptr, stalls)]))
1837 	  while (link)
1839 	      next_link = XEXP (link, 1);
1840 	      insn = XEXP (link, 0);
1870 		      free_INSN_LIST_node (link);
1885 		prev_link = link;
1887 	      link = next_link;
1888 	    } /* while link */
1889 	} /* if link */
2637 	    rtx link;
2638 	    for (link = insn_queue[i]; link; link = XEXP (link, 1))
2642 		x = XEXP (link, 0);
2949 	  rtx link;
2966 	  for (link = INSN_DEPEND (head); link; link = XEXP (link, 1))
2970 	      next = XEXP (link, 0);
3008   rtx link;
3026       link = LOG_LINKS (next);
3027       if (link)
3032           if (DEP_STATUS (link) & SPECULATIVE)
3037 	      *ts = DEP_STATUS (link) & SPECULATIVE;
3038               while ((link = XEXP (link, 1)))
3039 		*ts = ds_merge (*ts, DEP_STATUS (link) & SPECULATIVE);
3164   rtx link;
3167   link = RESOLVED_DEPS (next);
3169   if (link)
3183           pro = XEXP (link, 0);
3186           tick1 = INSN_TICK (pro) + insn_cost (pro, link, next);
3190       while ((link = XEXP (link, 1)) && full_p);
3360 process_insn_depend_be_in_spec (rtx link, rtx twin, ds_t fs)
3362   for (; link; link = XEXP (link, 1))
3367       consumer = XEXP (link, 0);
3369       ds = DEP_STATUS (link);
3396       add_back_forw_dep (consumer, twin, REG_NOTE_KIND (link), ds);
3419   rtx link, twins = NULL;
3435   for (link = LOG_LINKS (insn); link;)
3439       check = XEXP (link, 0);
3444 	  link = LOG_LINKS (insn);
3447 	link = XEXP (link, 1);
3454       rtx link, check, twin;
3457       link = LOG_LINKS (insn);
3458       gcc_assert (!(DEP_STATUS (link) & BEGIN_SPEC)
3459 		  && (DEP_STATUS (link) & BE_IN_SPEC)
3460 		  && (DEP_STATUS (link) & DEP_TYPES) == DEP_TRUE);
3462       check = XEXP (link, 0);
3490 	      link = XEXP (link, 1);
3491 	      if (link)
3493 		  check = XEXP (link, 0);
3502       while (link);
3506       for (link = LOG_LINKS (insn); link;)
3508 	  check = XEXP (link, 0);
3513 	      link = LOG_LINKS (insn);
3516 	    link = XEXP (link, 1);
3715   rtx label, check, twin, link;
3765       rtx link;
3767       for (link = RESOLVED_DEPS (insn); link; link = XEXP (link, 1))
3768 	if (DEP_STATUS (link) & DEP_OUTPUT)
3771 	      alloc_DEPS_LIST (XEXP (link, 0), RESOLVED_DEPS (check), DEP_TRUE);
3856   for (link = LOG_LINKS (insn); link; link = XEXP (link, 1))
3875       ds = DEP_STATUS (link);
3885 	  add_back_forw_dep (check, XEXP (link, 0), REG_NOTE_KIND (link), ds);
3886 	  add_back_forw_dep (twin, XEXP (link, 0), REG_NOTE_KIND (link), ds);
3889 	add_back_forw_dep (check, XEXP (link, 0), REG_NOTE_KIND (link), ds);
3892   for (link = LOG_LINKS (insn); link;)
3893     if ((DEP_STATUS (link) & BEGIN_SPEC)
3898         delete_back_forw_dep (insn, XEXP (link, 0));
3899         link = LOG_LINKS (insn);
3902       link = XEXP (link, 1);
3946 	  for (link = INSN_DEPEND (insn); link; link = INSN_DEPEND (insn))
3947 	    delete_back_forw_dep (XEXP (link, 0), insn);
3975   rtx note, insn, link, jump, ready_list = 0;
3989       for (link = INSN_DEPEND (insn); link;)
3993 	  consumer = XEXP (link, 0);
4005 	      link = INSN_DEPEND (insn);
4009 	      gcc_assert ((DEP_STATUS (link) & DEP_TYPES) == DEP_TRUE);
4011 	      link = XEXP (link, 1);
4022   for (link = ready_list; link; link = XEXP (link, 1))
4023     try_ready (XEXP (link, 0));
4494   rtx link;
4496   for (link = LOG_LINKS (insn); link; link = XEXP (link, 1))
4500       pro = XEXP (link, 0);
4514   rtx link;
4516   for (link = LOG_LINKS (insn); link; link = XEXP (link, 1))
4520       pro = XEXP (link, 0);