contrib/gcc/expr.c

354   enum machine_mode from_mode = GET_MODE (from);
356   int from_real = SCALAR_FLOAT_MODE_P (from_mode);
367   gcc_assert (from_mode != BLKmode);
382     from = gen_lowpart (to_mode, from), from_mode = to_mode;
386   if (to_mode == from_mode
387       || (from_mode == VOIDmode && CONSTANT_P (from)))
393   if (VECTOR_MODE_P (to_mode) || VECTOR_MODE_P (from_mode))
395       gcc_assert (GET_MODE_BITSIZE (from_mode) == GET_MODE_BITSIZE (to_mode));
400 	to = simplify_gen_subreg (from_mode, to, GET_MODE (to), 0);
418       gcc_assert ((GET_MODE_PRECISION (from_mode)
420 		  || (DECIMAL_FLOAT_MODE_P (from_mode)
423       if (GET_MODE_PRECISION (from_mode) == GET_MODE_PRECISION (to_mode))
425 	tab = DECIMAL_FLOAT_MODE_P (from_mode) ? trunc_optab : sext_optab;
426       else if (GET_MODE_PRECISION (from_mode) < GET_MODE_PRECISION (to_mode))
433       code = tab->handlers[to_mode][from_mode].insn_code;
442       libcall = tab->handlers[to_mode][from_mode].libfunc;
449 				       1, from, from_mode);
470       if (full_mode != from_mode)
476   if (GET_MODE_CLASS (from_mode) == MODE_PARTIAL_INT)
480 	= smallest_mode_for_size (GET_MODE_BITSIZE (from_mode), MODE_INT);
482       gcc_assert (sext_optab->handlers[full_mode][from_mode].insn_code
487 	  emit_unop_insn (sext_optab->handlers[full_mode][from_mode].insn_code,
493       emit_unop_insn (sext_optab->handlers[full_mode][from_mode].insn_code,
497       from_mode = full_mode;
504   if (GET_MODE_BITSIZE (from_mode) < GET_MODE_BITSIZE (to_mode)
516       if ((code = can_extend_p (to_mode, from_mode, unsignedp))
524 	    from = force_reg (from_mode, from);
529       else if (GET_MODE_BITSIZE (from_mode) < BITS_PER_WORD
536 		from = force_reg (from_mode, from);
552 	from = force_reg (from_mode, from);
555       if (GET_MODE_BITSIZE (from_mode) < BITS_PER_WORD)
558 	lowpart_mode = from_mode;
612   if (GET_MODE_BITSIZE (from_mode) > BITS_PER_WORD
621 	from = force_reg (from_mode, from);
630   if (GET_MODE_BITSIZE (to_mode) < GET_MODE_BITSIZE (from_mode)
632 				GET_MODE_BITSIZE (from_mode)))
640 	from = force_reg (from_mode, from);
649   if (GET_MODE_BITSIZE (to_mode) > GET_MODE_BITSIZE (from_mode))
652       if ((code = can_extend_p (to_mode, from_mode, unsignedp))
665 	  for (intermediate = from_mode; intermediate != VOIDmode;
672 		&& (can_extend_p (intermediate, from_mode, unsignedp)
684 					- GET_MODE_BITSIZE (from_mode));
685 	  from = gen_lowpart (to_mode, force_reg (from_mode, from));
697   if (trunc_optab->handlers[to_mode][from_mode].insn_code != CODE_FOR_nothing)
699       emit_unop_insn (trunc_optab->handlers[to_mode][from_mode].insn_code,
709      mode pairs, with a force_reg in from_mode followed by a recursive
711   if (GET_MODE_BITSIZE (to_mode) < GET_MODE_BITSIZE (from_mode))