gdb/gdb/valops.c

524 value_assign (struct value *toval, struct value *fromval)
530   if (!toval->modifiable)
533   COERCE_REF (toval);
535   type = VALUE_TYPE (toval);
536   if (VALUE_LVAL (toval) != lval_internalvar)
547   switch (VALUE_LVAL (toval))
550       set_internalvar (VALUE_INTERNALVAR (toval), fromval);
551       val = value_copy (VALUE_INTERNALVAR (toval)->value);
558       set_internalvar_component (VALUE_INTERNALVAR (toval),
559 				 VALUE_OFFSET (toval),
560 				 VALUE_BITPOS (toval),
561 				 VALUE_BITSIZE (toval),
572 	if (VALUE_BITSIZE (toval))
576 	    changed_len = (VALUE_BITPOS (toval)
577 			   + VALUE_BITSIZE (toval)
585 	    read_memory (VALUE_ADDRESS (toval) + VALUE_OFFSET (toval),
588 			  VALUE_BITPOS (toval), VALUE_BITSIZE (toval));
589 	    changed_addr = VALUE_ADDRESS (toval) + VALUE_OFFSET (toval);
594 	    changed_addr = VALUE_ADDRESS (toval) + VALUE_OFFSET (toval);
612 	if (VALUE_LVAL (toval) == lval_register)
615 	    value_reg = VALUE_REGNO (toval);
619 	    frame = frame_find_by_id (VALUE_FRAME_ID (toval));
620 	    value_reg = VALUE_FRAME_REGNUM (toval);
626 	if (VALUE_LVAL (toval) == lval_reg_frame_relative
627 	    && CONVERT_REGISTER_P (VALUE_FRAME_REGNUM (toval), type))
631 	    VALUE_TO_REGISTER (frame, VALUE_FRAME_REGNUM (toval),
652 		   offset + register_size (current_gdbarch, reg_offset) <= VALUE_OFFSET (toval);
654 	      byte_offset = VALUE_OFFSET (toval) - offset;
659 	    if (VALUE_BITSIZE (toval))
674 	    if (VALUE_BITSIZE (toval))
677 			    VALUE_BITPOS (toval), VALUE_BITSIZE (toval));
704   switch (VALUE_LVAL (toval))
733   if ((VALUE_BITSIZE (toval) > 0)
734       && (VALUE_BITSIZE (toval) < 8 * (int) sizeof (LONGEST)))
737       LONGEST valmask = (((ULONGEST) 1) << VALUE_BITSIZE (toval)) - 1;
746   val = value_copy (toval);