gdb/gdb/ppc-sysv-tdep.c

515 ppc_sysv_abi_return_value (struct gdbarch *gdbarch, struct type *valtype,
519   return do_ppc_sysv_return_value (gdbarch, valtype, regcache, readbuf,
525 				  struct type *valtype,
529   return do_ppc_sysv_return_value (gdbarch, valtype, regcache, readbuf,
845 ppc64_sysv_abi_return_value (struct gdbarch *gdbarch, struct type *valtype,
851   if (TYPE_CODE (valtype) == TYPE_CODE_FLT && TYPE_LENGTH (valtype) <= 8)
857 	  convert_typed_floating (writebuf, valtype, regval, regtype);
863 	  convert_typed_floating (regval, regtype, readbuf, valtype);
867   if (TYPE_CODE (valtype) == TYPE_CODE_INT && TYPE_LENGTH (valtype) <= 8)
874 					  unpack_long (valtype, writebuf));
883 	  store_unsigned_integer (readbuf, TYPE_LENGTH (valtype), regval);
888   if (TYPE_CODE (valtype) == TYPE_CODE_PTR)
897   if (TYPE_CODE (valtype) == TYPE_CODE_ARRAY
898       && TYPE_LENGTH (valtype) <= 8
899       && TYPE_CODE (TYPE_TARGET_TYPE (valtype)) == TYPE_CODE_INT
900       && TYPE_LENGTH (TYPE_TARGET_TYPE (valtype)) == 1)
904 		    - TYPE_LENGTH (valtype));
907 				    offset, TYPE_LENGTH (valtype), writebuf);
910 				   offset, TYPE_LENGTH (valtype), readbuf);
915   if (TYPE_CODE (valtype) == TYPE_CODE_FLT
916       && (TYPE_LENGTH (valtype) == 16 || TYPE_LENGTH (valtype) == 32))
921 	  for (i = 0; i < TYPE_LENGTH (valtype) / 8; i++)
934   if (TYPE_CODE (valtype) == TYPE_CODE_COMPLEX
935       && (TYPE_LENGTH (valtype) == 8 || TYPE_LENGTH (valtype) == 16))
948 					  i * (TYPE_LENGTH (valtype) / 2),
949 					  valtype, regval, regtype);
958 					  i * (TYPE_LENGTH (valtype) / 2),
959 					  valtype);
966   if (TYPE_CODE (valtype) == TYPE_CODE_COMPLEX && TYPE_LENGTH (valtype) == 32)