|
Packit Service |
97d2fb |
/* Function return value location for Linux/RISC-V ABI.
|
|
Packit Service |
97d2fb |
Copyright (C) 2018 Sifive, Inc.
|
|
Packit Service |
97d2fb |
Copyright (C) 2013 Red Hat, Inc.
|
|
Packit Service |
97d2fb |
This file is part of elfutils.
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
This file is free software; you can redistribute it and/or modify
|
|
Packit Service |
97d2fb |
it under the terms of either
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
* the GNU Lesser General Public License as published by the Free
|
|
Packit Service |
97d2fb |
Software Foundation; either version 3 of the License, or (at
|
|
Packit Service |
97d2fb |
your option) any later version
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
or
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
* the GNU General Public License as published by the Free
|
|
Packit Service |
97d2fb |
Software Foundation; either version 2 of the License, or (at
|
|
Packit Service |
97d2fb |
your option) any later version
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
or both in parallel, as here.
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
elfutils is distributed in the hope that it will be useful, but
|
|
Packit Service |
97d2fb |
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit Service |
97d2fb |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Packit Service |
97d2fb |
General Public License for more details.
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
You should have received copies of the GNU General Public License and
|
|
Packit Service |
97d2fb |
the GNU Lesser General Public License along with this program. If
|
|
Packit Service |
97d2fb |
not, see <http://www.gnu.org/licenses/>. */
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
#ifdef HAVE_CONFIG_H
|
|
Packit Service |
97d2fb |
# include <config.h>
|
|
Packit Service |
97d2fb |
#endif
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
#include <stdio.h>
|
|
Packit Service |
97d2fb |
#include <inttypes.h>
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
#include <assert.h>
|
|
Packit Service |
97d2fb |
#include <dwarf.h>
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
#define BACKEND riscv_
|
|
Packit Service |
97d2fb |
#include "libebl_CPU.h"
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
static int
|
|
Packit Service |
97d2fb |
dwarf_bytesize_aux (Dwarf_Die *die, Dwarf_Word *sizep)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
int bits;
|
|
Packit Service |
97d2fb |
if (((bits = 8 * dwarf_bytesize (die)) < 0
|
|
Packit Service |
97d2fb |
&& (bits = dwarf_bitsize (die)) < 0)
|
|
Packit Service |
97d2fb |
|| bits % 8 != 0)
|
|
Packit Service |
97d2fb |
return -1;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
*sizep = bits / 8;
|
|
Packit Service |
97d2fb |
return 0;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
static int
|
|
Packit Service |
97d2fb |
pass_in_gpr_lp64 (const Dwarf_Op **locp, Dwarf_Word size)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
static const Dwarf_Op loc[] =
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
{ .atom = DW_OP_reg10 }, { .atom = DW_OP_piece, .number = 8 },
|
|
Packit Service |
97d2fb |
{ .atom = DW_OP_reg11 }, { .atom = DW_OP_piece, .number = 8 }
|
|
Packit Service |
97d2fb |
};
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
*locp = loc;
|
|
Packit Service |
97d2fb |
return size <= 8 ? 1 : 4;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
static int
|
|
Packit Service |
97d2fb |
pass_by_ref (const Dwarf_Op **locp)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
static const Dwarf_Op loc[] = { { .atom = DW_OP_breg10 } };
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
*locp = loc;
|
|
Packit Service |
97d2fb |
return 1;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
static int
|
|
Packit Service |
97d2fb |
pass_in_fpr_lp64f (const Dwarf_Op **locp, Dwarf_Word size)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
static const Dwarf_Op loc[] =
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
{ .atom = DW_OP_regx, .number = 42 },
|
|
Packit Service |
97d2fb |
{ .atom = DW_OP_piece, .number = 4 },
|
|
Packit Service |
97d2fb |
{ .atom = DW_OP_regx, .number = 43 },
|
|
Packit Service |
97d2fb |
{ .atom = DW_OP_piece, .number = 4 }
|
|
Packit Service |
97d2fb |
};
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
*locp = loc;
|
|
Packit Service |
97d2fb |
return size <= 4 ? 1 : 4;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
static int
|
|
Packit Service |
97d2fb |
pass_in_fpr_lp64d (const Dwarf_Op **locp, Dwarf_Word size)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
static const Dwarf_Op loc[] =
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
{ .atom = DW_OP_regx, .number = 42 },
|
|
Packit Service |
97d2fb |
{ .atom = DW_OP_piece, .number = 8 },
|
|
Packit Service |
97d2fb |
{ .atom = DW_OP_regx, .number = 43 },
|
|
Packit Service |
97d2fb |
{ .atom = DW_OP_piece, .number = 8 }
|
|
Packit Service |
97d2fb |
};
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
*locp = loc;
|
|
Packit Service |
97d2fb |
return size <= 8 ? 1 : 4;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
static int
|
|
Packit Service |
97d2fb |
flatten_aggregate_arg (Dwarf_Die *typedie __attribute__ ((unused)),
|
|
Packit Service |
97d2fb |
Dwarf_Die *arg0 __attribute__ ((unused)),
|
|
Packit Service |
97d2fb |
Dwarf_Die *arg1 __attribute__ ((unused)))
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
/* ??? */
|
|
Packit Service |
97d2fb |
return 1;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
static int
|
|
Packit Service |
97d2fb |
pass_by_flattened_arg (const Dwarf_Op **locp __attribute__ ((unused)),
|
|
Packit Service |
97d2fb |
Dwarf_Word size __attribute__ ((unused)),
|
|
Packit Service |
97d2fb |
Dwarf_Die *arg0 __attribute__ ((unused)),
|
|
Packit Service |
97d2fb |
Dwarf_Die *arg1 __attribute__ ((unused)))
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
/* ??? */
|
|
Packit Service |
97d2fb |
return -2;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
int
|
|
Packit Service |
97d2fb |
riscv_return_value_location_lp64d (Dwarf_Die *functypedie,
|
|
Packit Service |
97d2fb |
const Dwarf_Op **locp)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
/* Start with the function's type, and get the DW_AT_type attribute,
|
|
Packit Service |
97d2fb |
which is the type of the return value. */
|
|
Packit Service |
97d2fb |
Dwarf_Die typedie;
|
|
Packit Service |
97d2fb |
int tag = dwarf_peeled_die_type (functypedie, &typedie);
|
|
Packit Service |
97d2fb |
if (tag <= 0)
|
|
Packit Service |
97d2fb |
return tag;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
Dwarf_Word size = (Dwarf_Word)-1;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
/* If the argument type is a Composite Type that is larger than 16
|
|
Packit Service |
97d2fb |
bytes, then the argument is copied to memory allocated by the
|
|
Packit Service |
97d2fb |
caller and the argument is replaced by a pointer to the copy. */
|
|
Packit Service |
97d2fb |
if (tag == DW_TAG_structure_type || tag == DW_TAG_union_type
|
|
Packit Service |
97d2fb |
|| tag == DW_TAG_class_type || tag == DW_TAG_array_type)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
Dwarf_Die arg0, arg1;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
if (dwarf_aggregate_size (&typedie, &size) < 0)
|
|
Packit Service |
97d2fb |
return -1;
|
|
Packit Service |
97d2fb |
/* A struct containing just one floating-point real is passed as though
|
|
Packit Service |
97d2fb |
it were a standalone floating-point real. A struct containing two
|
|
Packit Service |
97d2fb |
floating-point reals is passed in two floating-point registers, if
|
|
Packit Service |
97d2fb |
neither is more than FLEN bits wide. A struct containing just one
|
|
Packit Service |
97d2fb |
complex floating-point number is passed as though it were a struct
|
|
Packit Service |
97d2fb |
containing two floating-point reals. A struct containing one
|
|
Packit Service |
97d2fb |
floating-point real and one integer (or bitfield), in either order,
|
|
Packit Service |
97d2fb |
is passed in a floating-point register and an integer register,
|
|
Packit Service |
97d2fb |
provided the floating-point real is no more than FLEN bits wide and
|
|
Packit Service |
97d2fb |
the integer is no more than XLEN bits wide. */
|
|
Packit Service |
97d2fb |
if (tag == DW_TAG_structure_type
|
|
Packit Service |
97d2fb |
&& flatten_aggregate_arg (&typedie, &arg0, &arg1))
|
|
Packit Service |
97d2fb |
return pass_by_flattened_arg (locp, size, &arg0, &arg1);
|
|
Packit Service |
97d2fb |
/* Aggregates larger than 2*XLEN bits are passed by reference. */
|
|
Packit Service |
97d2fb |
else if (size > 16)
|
|
Packit Service |
97d2fb |
return pass_by_ref (locp);
|
|
Packit Service |
97d2fb |
/* Aggregates whose total size is no more than XLEN bits are passed in
|
|
Packit Service |
97d2fb |
a register. Aggregates whose total size is no more than 2*XLEN bits
|
|
Packit Service |
97d2fb |
are passed in a pair of registers. */
|
|
Packit Service |
97d2fb |
else
|
|
Packit Service |
97d2fb |
return pass_in_gpr_lp64 (locp, size);
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
if (tag == DW_TAG_base_type
|
|
Packit Service |
97d2fb |
|| tag == DW_TAG_pointer_type || tag == DW_TAG_ptr_to_member_type)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
if (dwarf_bytesize_aux (&typedie, &size) < 0)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
if (tag == DW_TAG_pointer_type || tag == DW_TAG_ptr_to_member_type)
|
|
Packit Service |
97d2fb |
size = 8;
|
|
Packit Service |
97d2fb |
else
|
|
Packit Service |
97d2fb |
return -1;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
Dwarf_Attribute attr_mem;
|
|
Packit Service |
97d2fb |
if (tag == DW_TAG_base_type)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
Dwarf_Word encoding;
|
|
Packit Service |
97d2fb |
if (dwarf_formudata (dwarf_attr_integrate (&typedie, DW_AT_encoding,
|
|
Packit Service |
97d2fb |
&attr_mem),
|
|
Packit Service |
97d2fb |
&encoding) != 0)
|
|
Packit Service |
97d2fb |
return -1;
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
switch (encoding)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
case DW_ATE_boolean:
|
|
Packit Service |
97d2fb |
case DW_ATE_signed:
|
|
Packit Service |
97d2fb |
case DW_ATE_unsigned:
|
|
Packit Service |
97d2fb |
case DW_ATE_unsigned_char:
|
|
Packit Service |
97d2fb |
case DW_ATE_signed_char:
|
|
Packit Service |
97d2fb |
/* Scalars that are at most XLEN bits wide are passed in a single
|
|
Packit Service |
97d2fb |
argument register. Scalars that are 2*XLEN bits wide are
|
|
Packit Service |
97d2fb |
passed in a pair of argument registers. Scalars wider than
|
|
Packit Service |
97d2fb |
2*XLEN are passed by reference; there are none for LP64D. */
|
|
Packit Service |
97d2fb |
return pass_in_gpr_lp64 (locp, size);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
case DW_ATE_float:
|
|
Packit Service |
97d2fb |
/* A real floating-point argument is passed in a floating-point
|
|
Packit Service |
97d2fb |
argument register if it is no more than FLEN bits wide,
|
|
Packit Service |
97d2fb |
otherwise it is passed according to the integer calling
|
|
Packit Service |
97d2fb |
convention. */
|
|
Packit Service |
97d2fb |
switch (size)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
case 4: /* single */
|
|
Packit Service |
97d2fb |
case 8: /* double */
|
|
Packit Service |
97d2fb |
return pass_in_fpr_lp64d (locp, size);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
case 16: /* quad */
|
|
Packit Service |
97d2fb |
return pass_in_gpr_lp64 (locp, size);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
default:
|
|
Packit Service |
97d2fb |
return -2;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
case DW_ATE_complex_float:
|
|
Packit Service |
97d2fb |
/* A complex floating-point number is passed as though it were a
|
|
Packit Service |
97d2fb |
struct containing two floating-point reals. */
|
|
Packit Service |
97d2fb |
switch (size)
|
|
Packit Service |
97d2fb |
{
|
|
Packit Service |
97d2fb |
case 8: /* float _Complex */
|
|
Packit Service |
97d2fb |
return pass_in_fpr_lp64f (locp, size);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
case 16: /* double _Complex */
|
|
Packit Service |
97d2fb |
return pass_in_fpr_lp64d (locp, size);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
case 32: /* long double _Complex */
|
|
Packit Service |
97d2fb |
return pass_by_ref (locp);
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
default:
|
|
Packit Service |
97d2fb |
return -2;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
return -2;
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
else
|
|
Packit Service |
97d2fb |
return pass_in_gpr_lp64 (locp, size);
|
|
Packit Service |
97d2fb |
}
|
|
Packit Service |
97d2fb |
|
|
Packit Service |
97d2fb |
*locp = NULL;
|
|
Packit Service |
97d2fb |
return 0;
|
|
Packit Service |
97d2fb |
}
|