mirror of
https://git.FreeBSD.org/src.git
synced 2024-12-24 11:29:10 +00:00
1416 lines
44 KiB
C
1416 lines
44 KiB
C
/* C-compiler utilities for types and variables storage layout
|
||
Copyright (C) 1987, 88, 92-97, 1998 Free Software Foundation, Inc.
|
||
|
||
This file is part of GNU CC.
|
||
|
||
GNU CC is free software; you can redistribute it and/or modify
|
||
it under the terms of the GNU General Public License as published by
|
||
the Free Software Foundation; either version 2, or (at your option)
|
||
any later version.
|
||
|
||
GNU CC is distributed in the hope that it will be useful,
|
||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
GNU General Public License for more details.
|
||
|
||
You should have received a copy of the GNU General Public License
|
||
along with GNU CC; see the file COPYING. If not, write to
|
||
the Free Software Foundation, 59 Temple Place - Suite 330,
|
||
Boston, MA 02111-1307, USA. */
|
||
|
||
|
||
#include "config.h"
|
||
#include "system.h"
|
||
|
||
#include "tree.h"
|
||
#include "rtl.h"
|
||
#include "flags.h"
|
||
#include "except.h"
|
||
#include "function.h"
|
||
#include "expr.h"
|
||
#include "toplev.h"
|
||
|
||
#define CEIL(x,y) (((x) + (y) - 1) / (y))
|
||
|
||
/* Data type for the expressions representing sizes of data types.
|
||
It is the first integer type laid out. */
|
||
|
||
struct sizetype_tab sizetype_tab;
|
||
|
||
/* An integer constant with value 0 whose type is sizetype. */
|
||
|
||
tree size_zero_node;
|
||
|
||
/* An integer constant with value 1 whose type is sizetype. */
|
||
|
||
tree size_one_node;
|
||
|
||
/* If nonzero, this is an upper limit on alignment of structure fields.
|
||
The value is measured in bits. */
|
||
int maximum_field_alignment;
|
||
|
||
/* If non-zero, the alignment of a bitstring or (power-)set value, in bits.
|
||
May be overridden by front-ends. */
|
||
int set_alignment = 0;
|
||
|
||
static tree layout_record PROTO((tree));
|
||
static void layout_union PROTO((tree));
|
||
|
||
/* SAVE_EXPRs for sizes of types and decls, waiting to be expanded. */
|
||
|
||
static tree pending_sizes;
|
||
|
||
/* Nonzero means cannot safely call expand_expr now,
|
||
so put variable sizes onto `pending_sizes' instead. */
|
||
|
||
int immediate_size_expand;
|
||
|
||
tree
|
||
get_pending_sizes ()
|
||
{
|
||
tree chain = pending_sizes;
|
||
tree t;
|
||
|
||
/* Put each SAVE_EXPR into the current function. */
|
||
for (t = chain; t; t = TREE_CHAIN (t))
|
||
SAVE_EXPR_CONTEXT (TREE_VALUE (t)) = current_function_decl;
|
||
pending_sizes = 0;
|
||
return chain;
|
||
}
|
||
|
||
void
|
||
put_pending_sizes (chain)
|
||
tree chain;
|
||
{
|
||
if (pending_sizes)
|
||
abort ();
|
||
|
||
pending_sizes = chain;
|
||
}
|
||
|
||
/* Given a size SIZE that may not be a constant, return a SAVE_EXPR
|
||
to serve as the actual size-expression for a type or decl. */
|
||
|
||
tree
|
||
variable_size (size)
|
||
tree size;
|
||
{
|
||
/* If the language-processor is to take responsibility for variable-sized
|
||
items (e.g., languages which have elaboration procedures like Ada),
|
||
just return SIZE unchanged. Likewise for self-referential sizes. */
|
||
if (TREE_CONSTANT (size)
|
||
|| global_bindings_p () < 0 || contains_placeholder_p (size))
|
||
return size;
|
||
|
||
size = save_expr (size);
|
||
|
||
if (global_bindings_p ())
|
||
{
|
||
if (TREE_CONSTANT (size))
|
||
error ("type size can't be explicitly evaluated");
|
||
else
|
||
error ("variable-size type declared outside of any function");
|
||
|
||
return size_int (1);
|
||
}
|
||
|
||
if (immediate_size_expand)
|
||
/* NULL_RTX is not defined; neither is the rtx type.
|
||
Also, we would like to pass const0_rtx here, but don't have it. */
|
||
expand_expr (size, expand_expr (integer_zero_node, NULL_PTR, VOIDmode, 0),
|
||
VOIDmode, 0);
|
||
else
|
||
pending_sizes = tree_cons (NULL_TREE, size, pending_sizes);
|
||
|
||
return size;
|
||
}
|
||
|
||
#ifndef MAX_FIXED_MODE_SIZE
|
||
#define MAX_FIXED_MODE_SIZE GET_MODE_BITSIZE (DImode)
|
||
#endif
|
||
|
||
/* Return the machine mode to use for a nonscalar of SIZE bits.
|
||
The mode must be in class CLASS, and have exactly that many bits.
|
||
If LIMIT is nonzero, modes of wider than MAX_FIXED_MODE_SIZE will not
|
||
be used. */
|
||
|
||
enum machine_mode
|
||
mode_for_size (size, class, limit)
|
||
unsigned int size;
|
||
enum mode_class class;
|
||
int limit;
|
||
{
|
||
register enum machine_mode mode;
|
||
|
||
if (limit && size > (unsigned int)(MAX_FIXED_MODE_SIZE))
|
||
return BLKmode;
|
||
|
||
/* Get the first mode which has this size, in the specified class. */
|
||
for (mode = GET_CLASS_NARROWEST_MODE (class); mode != VOIDmode;
|
||
mode = GET_MODE_WIDER_MODE (mode))
|
||
if ((unsigned int)GET_MODE_BITSIZE (mode) == size)
|
||
return mode;
|
||
|
||
return BLKmode;
|
||
}
|
||
|
||
/* Similar, but never return BLKmode; return the narrowest mode that
|
||
contains at least the requested number of bits. */
|
||
|
||
enum machine_mode
|
||
smallest_mode_for_size (size, class)
|
||
unsigned int size;
|
||
enum mode_class class;
|
||
{
|
||
register enum machine_mode mode;
|
||
|
||
/* Get the first mode which has at least this size, in the
|
||
specified class. */
|
||
for (mode = GET_CLASS_NARROWEST_MODE (class); mode != VOIDmode;
|
||
mode = GET_MODE_WIDER_MODE (mode))
|
||
if ((unsigned int)GET_MODE_BITSIZE (mode) >= size)
|
||
return mode;
|
||
|
||
abort ();
|
||
}
|
||
|
||
/* Find an integer mode of the exact same size, or BLKmode on failure. */
|
||
|
||
enum machine_mode
|
||
int_mode_for_mode (mode)
|
||
enum machine_mode mode;
|
||
{
|
||
switch (GET_MODE_CLASS (mode))
|
||
{
|
||
case MODE_INT:
|
||
case MODE_PARTIAL_INT:
|
||
break;
|
||
|
||
case MODE_COMPLEX_INT:
|
||
case MODE_COMPLEX_FLOAT:
|
||
case MODE_FLOAT:
|
||
mode = mode_for_size (GET_MODE_BITSIZE (mode), MODE_INT, 0);
|
||
break;
|
||
|
||
case MODE_RANDOM:
|
||
if (mode == BLKmode)
|
||
break;
|
||
/* FALLTHRU */
|
||
|
||
case MODE_CC:
|
||
default:
|
||
abort();
|
||
}
|
||
|
||
return mode;
|
||
}
|
||
|
||
/* Return the value of VALUE, rounded up to a multiple of DIVISOR. */
|
||
|
||
tree
|
||
round_up (value, divisor)
|
||
tree value;
|
||
int divisor;
|
||
{
|
||
return size_binop (MULT_EXPR,
|
||
size_binop (CEIL_DIV_EXPR, value, size_int (divisor)),
|
||
size_int (divisor));
|
||
}
|
||
|
||
/* Set the size, mode and alignment of a ..._DECL node.
|
||
TYPE_DECL does need this for C++.
|
||
Note that LABEL_DECL and CONST_DECL nodes do not need this,
|
||
and FUNCTION_DECL nodes have them set up in a special (and simple) way.
|
||
Don't call layout_decl for them.
|
||
|
||
KNOWN_ALIGN is the amount of alignment we can assume this
|
||
decl has with no special effort. It is relevant only for FIELD_DECLs
|
||
and depends on the previous fields.
|
||
All that matters about KNOWN_ALIGN is which powers of 2 divide it.
|
||
If KNOWN_ALIGN is 0, it means, "as much alignment as you like":
|
||
the record will be aligned to suit. */
|
||
|
||
void
|
||
layout_decl (decl, known_align)
|
||
tree decl;
|
||
unsigned known_align;
|
||
{
|
||
register tree type = TREE_TYPE (decl);
|
||
register enum tree_code code = TREE_CODE (decl);
|
||
int spec_size = DECL_FIELD_SIZE (decl);
|
||
|
||
if (code == CONST_DECL)
|
||
return;
|
||
|
||
if (code != VAR_DECL && code != PARM_DECL && code != RESULT_DECL
|
||
&& code != FIELD_DECL && code != TYPE_DECL)
|
||
abort ();
|
||
|
||
if (type == error_mark_node)
|
||
{
|
||
type = void_type_node;
|
||
spec_size = 0;
|
||
}
|
||
|
||
/* Usually the size and mode come from the data type without change. */
|
||
|
||
DECL_MODE (decl) = TYPE_MODE (type);
|
||
TREE_UNSIGNED (decl) = TREE_UNSIGNED (type);
|
||
if (DECL_SIZE (decl) == 0)
|
||
DECL_SIZE (decl) = TYPE_SIZE (type);
|
||
|
||
if (code == FIELD_DECL && DECL_BIT_FIELD (decl))
|
||
{
|
||
if (spec_size == 0 && DECL_NAME (decl) != 0)
|
||
abort ();
|
||
|
||
/* Size is specified number of bits. */
|
||
DECL_SIZE (decl) = size_int (spec_size);
|
||
}
|
||
/* Force alignment required for the data type.
|
||
But if the decl itself wants greater alignment, don't override that.
|
||
Likewise, if the decl is packed, don't override it. */
|
||
else if (DECL_ALIGN (decl) == 0
|
||
|| (! DECL_PACKED (decl) && TYPE_ALIGN (type) > DECL_ALIGN (decl)))
|
||
DECL_ALIGN (decl) = TYPE_ALIGN (type);
|
||
|
||
/* See if we can use an ordinary integer mode for a bit-field. */
|
||
/* Conditions are: a fixed size that is correct for another mode
|
||
and occupying a complete byte or bytes on proper boundary. */
|
||
if (code == FIELD_DECL)
|
||
{
|
||
DECL_BIT_FIELD_TYPE (decl) = DECL_BIT_FIELD (decl) ? type : 0;
|
||
if (maximum_field_alignment != 0)
|
||
DECL_ALIGN (decl) = MIN (DECL_ALIGN (decl),
|
||
(unsigned)maximum_field_alignment);
|
||
else if (DECL_PACKED (decl))
|
||
DECL_ALIGN (decl) = MIN (DECL_ALIGN (decl), BITS_PER_UNIT);
|
||
}
|
||
|
||
if (DECL_BIT_FIELD (decl)
|
||
&& TYPE_SIZE (type) != 0
|
||
&& TREE_CODE (TYPE_SIZE (type)) == INTEGER_CST
|
||
&& GET_MODE_CLASS (TYPE_MODE (type)) == MODE_INT)
|
||
{
|
||
register enum machine_mode xmode
|
||
= mode_for_size (TREE_INT_CST_LOW (DECL_SIZE (decl)), MODE_INT, 1);
|
||
|
||
if (xmode != BLKmode
|
||
&& known_align % GET_MODE_ALIGNMENT (xmode) == 0)
|
||
{
|
||
DECL_ALIGN (decl) = MAX ((unsigned) GET_MODE_ALIGNMENT (xmode),
|
||
DECL_ALIGN (decl));
|
||
DECL_MODE (decl) = xmode;
|
||
DECL_SIZE (decl) = size_int (GET_MODE_BITSIZE (xmode));
|
||
/* This no longer needs to be accessed as a bit field. */
|
||
DECL_BIT_FIELD (decl) = 0;
|
||
}
|
||
}
|
||
|
||
/* Turn off DECL_BIT_FIELD if we won't need it set. */
|
||
if (DECL_BIT_FIELD (decl) && TYPE_MODE (type) == BLKmode
|
||
&& known_align % TYPE_ALIGN (type) == 0
|
||
&& DECL_SIZE (decl) != 0
|
||
&& (TREE_CODE (DECL_SIZE (decl)) != INTEGER_CST
|
||
|| (TREE_INT_CST_LOW (DECL_SIZE (decl)) % BITS_PER_UNIT) == 0)
|
||
&& DECL_ALIGN (decl) >= TYPE_ALIGN (type))
|
||
DECL_BIT_FIELD (decl) = 0;
|
||
|
||
/* Evaluate nonconstant size only once, either now or as soon as safe. */
|
||
if (DECL_SIZE (decl) != 0 && TREE_CODE (DECL_SIZE (decl)) != INTEGER_CST)
|
||
DECL_SIZE (decl) = variable_size (DECL_SIZE (decl));
|
||
}
|
||
|
||
/* Lay out a RECORD_TYPE type (a C struct).
|
||
This means laying out the fields, determining their positions,
|
||
and computing the overall size and required alignment of the record.
|
||
Note that if you set the TYPE_ALIGN before calling this
|
||
then the struct is aligned to at least that boundary.
|
||
|
||
If the type has basetypes, you must call layout_basetypes
|
||
before calling this function.
|
||
|
||
The return value is a list of static members of the record.
|
||
They still need to be laid out. */
|
||
|
||
static tree
|
||
layout_record (rec)
|
||
tree rec;
|
||
{
|
||
register tree field;
|
||
unsigned record_align = MAX (BITS_PER_UNIT, TYPE_ALIGN (rec));
|
||
/* These must be laid out *after* the record is. */
|
||
tree pending_statics = NULL_TREE;
|
||
/* Record size so far is CONST_SIZE + VAR_SIZE bits,
|
||
where CONST_SIZE is an integer
|
||
and VAR_SIZE is a tree expression.
|
||
If VAR_SIZE is null, the size is just CONST_SIZE.
|
||
Naturally we try to avoid using VAR_SIZE. */
|
||
register HOST_WIDE_INT const_size = 0;
|
||
register tree var_size = 0;
|
||
/* Once we start using VAR_SIZE, this is the maximum alignment
|
||
that we know VAR_SIZE has. */
|
||
register int var_align = BITS_PER_UNIT;
|
||
|
||
#ifdef STRUCTURE_SIZE_BOUNDARY
|
||
/* Packed structures don't need to have minimum size. */
|
||
if (! TYPE_PACKED (rec))
|
||
record_align = MAX (record_align, STRUCTURE_SIZE_BOUNDARY);
|
||
#endif
|
||
|
||
for (field = TYPE_FIELDS (rec); field; field = TREE_CHAIN (field))
|
||
{
|
||
register int known_align = var_size ? var_align : const_size;
|
||
register int desired_align = 0;
|
||
|
||
/* If FIELD is static, then treat it like a separate variable,
|
||
not really like a structure field.
|
||
If it is a FUNCTION_DECL, it's a method.
|
||
In both cases, all we do is lay out the decl,
|
||
and we do it *after* the record is laid out. */
|
||
|
||
if (TREE_CODE (field) == VAR_DECL)
|
||
{
|
||
pending_statics = tree_cons (NULL_TREE, field, pending_statics);
|
||
continue;
|
||
}
|
||
/* Enumerators and enum types which are local to this class need not
|
||
be laid out. Likewise for initialized constant fields. */
|
||
if (TREE_CODE (field) != FIELD_DECL)
|
||
continue;
|
||
|
||
/* Lay out the field so we know what alignment it needs.
|
||
For a packed field, use the alignment as specified,
|
||
disregarding what the type would want. */
|
||
if (DECL_PACKED (field))
|
||
desired_align = DECL_ALIGN (field);
|
||
layout_decl (field, known_align);
|
||
if (! DECL_PACKED (field))
|
||
desired_align = DECL_ALIGN (field);
|
||
/* Some targets (i.e. VMS) limit struct field alignment
|
||
to a lower boundary than alignment of variables. */
|
||
#ifdef BIGGEST_FIELD_ALIGNMENT
|
||
desired_align = MIN (desired_align, BIGGEST_FIELD_ALIGNMENT);
|
||
#endif
|
||
#ifdef ADJUST_FIELD_ALIGN
|
||
desired_align = ADJUST_FIELD_ALIGN (field, desired_align);
|
||
#endif
|
||
|
||
/* Record must have at least as much alignment as any field.
|
||
Otherwise, the alignment of the field within the record
|
||
is meaningless. */
|
||
|
||
#ifndef PCC_BITFIELD_TYPE_MATTERS
|
||
record_align = MAX (record_align, desired_align);
|
||
#else
|
||
if (PCC_BITFIELD_TYPE_MATTERS && TREE_TYPE (field) != error_mark_node
|
||
&& DECL_BIT_FIELD_TYPE (field)
|
||
&& ! integer_zerop (TYPE_SIZE (TREE_TYPE (field))))
|
||
{
|
||
/* For these machines, a zero-length field does not
|
||
affect the alignment of the structure as a whole.
|
||
It does, however, affect the alignment of the next field
|
||
within the structure. */
|
||
if (! integer_zerop (DECL_SIZE (field)))
|
||
record_align = MAX ((int)record_align, desired_align);
|
||
else if (! DECL_PACKED (field))
|
||
desired_align = TYPE_ALIGN (TREE_TYPE (field));
|
||
/* A named bit field of declared type `int'
|
||
forces the entire structure to have `int' alignment. */
|
||
if (DECL_NAME (field) != 0)
|
||
{
|
||
int type_align = TYPE_ALIGN (TREE_TYPE (field));
|
||
if (maximum_field_alignment != 0)
|
||
type_align = MIN (type_align, maximum_field_alignment);
|
||
else if (DECL_PACKED (field))
|
||
type_align = MIN (type_align, BITS_PER_UNIT);
|
||
|
||
record_align = MAX ((int)record_align, type_align);
|
||
}
|
||
}
|
||
else
|
||
record_align = MAX ((int)record_align, desired_align);
|
||
#endif
|
||
|
||
/* Does this field automatically have alignment it needs
|
||
by virtue of the fields that precede it and the record's
|
||
own alignment? */
|
||
|
||
if (const_size % desired_align != 0
|
||
|| (var_align % desired_align != 0
|
||
&& var_size != 0))
|
||
{
|
||
/* No, we need to skip space before this field.
|
||
Bump the cumulative size to multiple of field alignment. */
|
||
|
||
if (var_size == 0
|
||
|| var_align % desired_align == 0)
|
||
const_size
|
||
= CEIL (const_size, desired_align) * desired_align;
|
||
else
|
||
{
|
||
if (const_size > 0)
|
||
var_size = size_binop (PLUS_EXPR, var_size,
|
||
bitsize_int (const_size, 0L));
|
||
const_size = 0;
|
||
var_size = round_up (var_size, desired_align);
|
||
var_align = MIN (var_align, desired_align);
|
||
}
|
||
}
|
||
|
||
#ifdef PCC_BITFIELD_TYPE_MATTERS
|
||
if (PCC_BITFIELD_TYPE_MATTERS
|
||
&& TREE_CODE (field) == FIELD_DECL
|
||
&& TREE_TYPE (field) != error_mark_node
|
||
&& DECL_BIT_FIELD_TYPE (field)
|
||
&& !DECL_PACKED (field)
|
||
&& maximum_field_alignment == 0
|
||
&& !integer_zerop (DECL_SIZE (field)))
|
||
{
|
||
int type_align = TYPE_ALIGN (TREE_TYPE (field));
|
||
register tree dsize = DECL_SIZE (field);
|
||
int field_size = TREE_INT_CST_LOW (dsize);
|
||
|
||
/* A bit field may not span more units of alignment of its type
|
||
than its type itself. Advance to next boundary if necessary. */
|
||
if (((const_size + field_size + type_align - 1) / type_align
|
||
- const_size / type_align)
|
||
> TREE_INT_CST_LOW (TYPE_SIZE (TREE_TYPE (field))) / type_align)
|
||
const_size = CEIL (const_size, type_align) * type_align;
|
||
}
|
||
#endif
|
||
|
||
/* No existing machine description uses this parameter.
|
||
So I have made it in this aspect identical to PCC_BITFIELD_TYPE_MATTERS. */
|
||
#ifdef BITFIELD_NBYTES_LIMITED
|
||
if (BITFIELD_NBYTES_LIMITED
|
||
&& TREE_CODE (field) == FIELD_DECL
|
||
&& TREE_TYPE (field) != error_mark_node
|
||
&& DECL_BIT_FIELD_TYPE (field)
|
||
&& !DECL_PACKED (field)
|
||
&& !integer_zerop (DECL_SIZE (field)))
|
||
{
|
||
int type_align = TYPE_ALIGN (TREE_TYPE (field));
|
||
register tree dsize = DECL_SIZE (field);
|
||
int field_size = TREE_INT_CST_LOW (dsize);
|
||
|
||
if (maximum_field_alignment != 0)
|
||
type_align = MIN (type_align, maximum_field_alignment);
|
||
/* ??? This test is opposite the test in the containing if
|
||
statement, so this code is unreachable currently. */
|
||
else if (DECL_PACKED (field))
|
||
type_align = MIN (type_align, BITS_PER_UNIT);
|
||
|
||
/* A bit field may not span the unit of alignment of its type.
|
||
Advance to next boundary if necessary. */
|
||
/* ??? This code should match the code above for the
|
||
PCC_BITFIELD_TYPE_MATTERS case. */
|
||
if (const_size / type_align
|
||
!= (const_size + field_size - 1) / type_align)
|
||
const_size = CEIL (const_size, type_align) * type_align;
|
||
}
|
||
#endif
|
||
|
||
/* Size so far becomes the position of this field. */
|
||
|
||
if (var_size && const_size)
|
||
DECL_FIELD_BITPOS (field)
|
||
= size_binop (PLUS_EXPR, var_size, bitsize_int (const_size, 0L));
|
||
else if (var_size)
|
||
DECL_FIELD_BITPOS (field) = var_size;
|
||
else
|
||
{
|
||
DECL_FIELD_BITPOS (field) = size_int (const_size);
|
||
|
||
/* If this field ended up more aligned than we thought it
|
||
would be (we approximate this by seeing if its position
|
||
changed), lay out the field again; perhaps we can use an
|
||
integral mode for it now. */
|
||
if (known_align != const_size)
|
||
layout_decl (field, const_size);
|
||
}
|
||
|
||
/* Now add size of this field to the size of the record. */
|
||
|
||
{
|
||
register tree dsize = DECL_SIZE (field);
|
||
|
||
/* This can happen when we have an invalid nested struct definition,
|
||
such as struct j { struct j { int i; } }. The error message is
|
||
printed in finish_struct. */
|
||
if (dsize == 0)
|
||
/* Do nothing. */;
|
||
else if (TREE_CODE (dsize) == INTEGER_CST
|
||
&& ! TREE_CONSTANT_OVERFLOW (dsize)
|
||
&& TREE_INT_CST_HIGH (dsize) == 0
|
||
&& TREE_INT_CST_LOW (dsize) + const_size >= const_size)
|
||
/* Use const_size if there's no overflow. */
|
||
const_size += TREE_INT_CST_LOW (dsize);
|
||
else
|
||
{
|
||
if (var_size == 0)
|
||
var_size = dsize;
|
||
else
|
||
var_size = size_binop (PLUS_EXPR, var_size, dsize);
|
||
}
|
||
}
|
||
}
|
||
|
||
/* Work out the total size and alignment of the record
|
||
as one expression and store in the record type.
|
||
Round it up to a multiple of the record's alignment. */
|
||
|
||
if (var_size == 0)
|
||
{
|
||
TYPE_SIZE (rec) = size_int (const_size);
|
||
}
|
||
else
|
||
{
|
||
if (const_size)
|
||
var_size
|
||
= size_binop (PLUS_EXPR, var_size, bitsize_int (const_size, 0L));
|
||
TYPE_SIZE (rec) = var_size;
|
||
}
|
||
|
||
/* Determine the desired alignment. */
|
||
#ifdef ROUND_TYPE_ALIGN
|
||
TYPE_ALIGN (rec) = ROUND_TYPE_ALIGN (rec, TYPE_ALIGN (rec), record_align);
|
||
#else
|
||
TYPE_ALIGN (rec) = MAX (TYPE_ALIGN (rec), record_align);
|
||
#endif
|
||
|
||
/* Record the un-rounded size in the binfo node. But first we check
|
||
the size of TYPE_BINFO to make sure that BINFO_SIZE is available. */
|
||
if (TYPE_BINFO (rec) && TREE_VEC_LENGTH (TYPE_BINFO (rec)) > 6)
|
||
TYPE_BINFO_SIZE (rec) = TYPE_SIZE (rec);
|
||
|
||
#ifdef ROUND_TYPE_SIZE
|
||
TYPE_SIZE (rec) = ROUND_TYPE_SIZE (rec, TYPE_SIZE (rec), TYPE_ALIGN (rec));
|
||
#else
|
||
/* Round the size up to be a multiple of the required alignment */
|
||
TYPE_SIZE (rec) = round_up (TYPE_SIZE (rec), TYPE_ALIGN (rec));
|
||
#endif
|
||
|
||
return pending_statics;
|
||
}
|
||
|
||
/* Lay out a UNION_TYPE or QUAL_UNION_TYPE type.
|
||
Lay out all the fields, set their positions to zero,
|
||
and compute the size and alignment of the union (maximum of any field).
|
||
Note that if you set the TYPE_ALIGN before calling this
|
||
then the union align is aligned to at least that boundary. */
|
||
|
||
static void
|
||
layout_union (rec)
|
||
tree rec;
|
||
{
|
||
register tree field;
|
||
unsigned union_align = BITS_PER_UNIT;
|
||
|
||
/* The size of the union, based on the fields scanned so far,
|
||
is max (CONST_SIZE, VAR_SIZE).
|
||
VAR_SIZE may be null; then CONST_SIZE by itself is the size. */
|
||
register int const_size = 0;
|
||
register tree var_size = 0;
|
||
|
||
#ifdef STRUCTURE_SIZE_BOUNDARY
|
||
/* Packed structures don't need to have minimum size. */
|
||
if (! TYPE_PACKED (rec))
|
||
union_align = STRUCTURE_SIZE_BOUNDARY;
|
||
#endif
|
||
|
||
/* If this is a QUAL_UNION_TYPE, we want to process the fields in
|
||
the reverse order in building the COND_EXPR that denotes its
|
||
size. We reverse them again later. */
|
||
if (TREE_CODE (rec) == QUAL_UNION_TYPE)
|
||
TYPE_FIELDS (rec) = nreverse (TYPE_FIELDS (rec));
|
||
|
||
for (field = TYPE_FIELDS (rec); field; field = TREE_CHAIN (field))
|
||
{
|
||
/* Enums which are local to this class need not be laid out. */
|
||
if (TREE_CODE (field) == CONST_DECL || TREE_CODE (field) == TYPE_DECL)
|
||
continue;
|
||
|
||
layout_decl (field, 0);
|
||
DECL_FIELD_BITPOS (field) = bitsize_int (0L, 0L);
|
||
|
||
/* Union must be at least as aligned as any field requires. */
|
||
|
||
union_align = MAX (union_align, DECL_ALIGN (field));
|
||
|
||
#ifdef PCC_BITFIELD_TYPE_MATTERS
|
||
/* On the m88000, a bit field of declare type `int'
|
||
forces the entire union to have `int' alignment. */
|
||
if (PCC_BITFIELD_TYPE_MATTERS && DECL_BIT_FIELD_TYPE (field))
|
||
union_align = MAX (union_align, TYPE_ALIGN (TREE_TYPE (field)));
|
||
#endif
|
||
|
||
if (TREE_CODE (rec) == UNION_TYPE)
|
||
{
|
||
/* Set union_size to max (decl_size, union_size).
|
||
There are more and less general ways to do this.
|
||
Use only CONST_SIZE unless forced to use VAR_SIZE. */
|
||
|
||
if (TREE_CODE (DECL_SIZE (field)) == INTEGER_CST)
|
||
const_size
|
||
= MAX (const_size, TREE_INT_CST_LOW (DECL_SIZE (field)));
|
||
else if (var_size == 0)
|
||
var_size = DECL_SIZE (field);
|
||
else
|
||
var_size = size_binop (MAX_EXPR, var_size, DECL_SIZE (field));
|
||
}
|
||
else if (TREE_CODE (rec) == QUAL_UNION_TYPE)
|
||
var_size = fold (build (COND_EXPR, sizetype, DECL_QUALIFIER (field),
|
||
DECL_SIZE (field),
|
||
var_size ? var_size : bitsize_int (0L, 0L)));
|
||
}
|
||
|
||
if (TREE_CODE (rec) == QUAL_UNION_TYPE)
|
||
TYPE_FIELDS (rec) = nreverse (TYPE_FIELDS (rec));
|
||
|
||
/* Determine the ultimate size of the union (in bytes). */
|
||
if (NULL == var_size)
|
||
TYPE_SIZE (rec) = bitsize_int (CEIL (const_size, BITS_PER_UNIT)
|
||
* BITS_PER_UNIT, 0L);
|
||
else if (const_size == 0)
|
||
TYPE_SIZE (rec) = var_size;
|
||
else
|
||
TYPE_SIZE (rec) = size_binop (MAX_EXPR, var_size,
|
||
round_up (bitsize_int (const_size, 0L),
|
||
BITS_PER_UNIT));
|
||
|
||
/* Determine the desired alignment. */
|
||
#ifdef ROUND_TYPE_ALIGN
|
||
TYPE_ALIGN (rec) = ROUND_TYPE_ALIGN (rec, TYPE_ALIGN (rec), union_align);
|
||
#else
|
||
TYPE_ALIGN (rec) = MAX (TYPE_ALIGN (rec), union_align);
|
||
#endif
|
||
|
||
#ifdef ROUND_TYPE_SIZE
|
||
TYPE_SIZE (rec) = ROUND_TYPE_SIZE (rec, TYPE_SIZE (rec), TYPE_ALIGN (rec));
|
||
#else
|
||
/* Round the size up to be a multiple of the required alignment */
|
||
TYPE_SIZE (rec) = round_up (TYPE_SIZE (rec), TYPE_ALIGN (rec));
|
||
#endif
|
||
}
|
||
|
||
/* Calculate the mode, size, and alignment for TYPE.
|
||
For an array type, calculate the element separation as well.
|
||
Record TYPE on the chain of permanent or temporary types
|
||
so that dbxout will find out about it.
|
||
|
||
TYPE_SIZE of a type is nonzero if the type has been laid out already.
|
||
layout_type does nothing on such a type.
|
||
|
||
If the type is incomplete, its TYPE_SIZE remains zero. */
|
||
|
||
void
|
||
layout_type (type)
|
||
tree type;
|
||
{
|
||
int old;
|
||
tree pending_statics;
|
||
|
||
if (type == 0)
|
||
abort ();
|
||
|
||
/* Do nothing if type has been laid out before. */
|
||
if (TYPE_SIZE (type))
|
||
return;
|
||
|
||
/* Make sure all nodes we allocate are not momentary;
|
||
they must last past the current statement. */
|
||
old = suspend_momentary ();
|
||
|
||
/* Put all our nodes into the same obstack as the type. Also,
|
||
make expressions saveable (this is a no-op for permanent types). */
|
||
|
||
push_obstacks (TYPE_OBSTACK (type), TYPE_OBSTACK (type));
|
||
saveable_allocation ();
|
||
|
||
switch (TREE_CODE (type))
|
||
{
|
||
case LANG_TYPE:
|
||
/* This kind of type is the responsibility
|
||
of the language-specific code. */
|
||
abort ();
|
||
|
||
case BOOLEAN_TYPE: /* Used for Java, Pascal, and Chill. */
|
||
if (TYPE_PRECISION (type) == 0)
|
||
TYPE_PRECISION (type) = 1; /* default to one byte/boolean. */
|
||
/* ... fall through ... */
|
||
|
||
case INTEGER_TYPE:
|
||
case ENUMERAL_TYPE:
|
||
case CHAR_TYPE:
|
||
if (TREE_CODE (TYPE_MIN_VALUE (type)) == INTEGER_CST
|
||
&& tree_int_cst_sgn (TYPE_MIN_VALUE (type)) >= 0)
|
||
TREE_UNSIGNED (type) = 1;
|
||
|
||
TYPE_MODE (type) = smallest_mode_for_size (TYPE_PRECISION (type),
|
||
MODE_INT);
|
||
TYPE_SIZE (type) = bitsize_int (GET_MODE_BITSIZE (TYPE_MODE (type)), 0L);
|
||
TYPE_SIZE_UNIT (type) = size_int (GET_MODE_SIZE (TYPE_MODE (type)));
|
||
break;
|
||
|
||
case REAL_TYPE:
|
||
TYPE_MODE (type) = mode_for_size (TYPE_PRECISION (type), MODE_FLOAT, 0);
|
||
TYPE_SIZE (type) = bitsize_int (GET_MODE_BITSIZE (TYPE_MODE (type)), 0L);
|
||
TYPE_SIZE_UNIT (type) = size_int (GET_MODE_SIZE (TYPE_MODE (type)));
|
||
break;
|
||
|
||
case COMPLEX_TYPE:
|
||
TREE_UNSIGNED (type) = TREE_UNSIGNED (TREE_TYPE (type));
|
||
TYPE_MODE (type)
|
||
= mode_for_size (2 * TYPE_PRECISION (TREE_TYPE (type)),
|
||
(TREE_CODE (TREE_TYPE (type)) == INTEGER_TYPE
|
||
? MODE_COMPLEX_INT : MODE_COMPLEX_FLOAT),
|
||
0);
|
||
TYPE_SIZE (type) = bitsize_int (GET_MODE_BITSIZE (TYPE_MODE (type)), 0L);
|
||
TYPE_SIZE_UNIT (type) = size_int (GET_MODE_SIZE (TYPE_MODE (type)));
|
||
break;
|
||
|
||
case VOID_TYPE:
|
||
TYPE_SIZE (type) = size_zero_node;
|
||
TYPE_SIZE_UNIT (type) = size_zero_node;
|
||
TYPE_ALIGN (type) = 1;
|
||
TYPE_MODE (type) = VOIDmode;
|
||
break;
|
||
|
||
case OFFSET_TYPE:
|
||
TYPE_SIZE (type) = bitsize_int (POINTER_SIZE, 0L);
|
||
TYPE_SIZE_UNIT (type) = size_int (POINTER_SIZE / BITS_PER_UNIT);
|
||
TYPE_MODE (type) = ptr_mode;
|
||
break;
|
||
|
||
case FUNCTION_TYPE:
|
||
case METHOD_TYPE:
|
||
TYPE_MODE (type) = mode_for_size (2 * POINTER_SIZE, MODE_INT, 0);
|
||
TYPE_SIZE (type) = bitsize_int (2 * POINTER_SIZE, 0);
|
||
TYPE_SIZE_UNIT (type) = size_int ((2 * POINTER_SIZE) / BITS_PER_UNIT);
|
||
break;
|
||
|
||
case POINTER_TYPE:
|
||
case REFERENCE_TYPE:
|
||
TYPE_MODE (type) = ptr_mode;
|
||
TYPE_SIZE (type) = bitsize_int (POINTER_SIZE, 0L);
|
||
TYPE_SIZE_UNIT (type) = size_int (POINTER_SIZE / BITS_PER_UNIT);
|
||
TREE_UNSIGNED (type) = 1;
|
||
TYPE_PRECISION (type) = POINTER_SIZE;
|
||
break;
|
||
|
||
case ARRAY_TYPE:
|
||
{
|
||
register tree index = TYPE_DOMAIN (type);
|
||
register tree element = TREE_TYPE (type);
|
||
|
||
build_pointer_type (element);
|
||
|
||
/* We need to know both bounds in order to compute the size. */
|
||
if (index && TYPE_MAX_VALUE (index) && TYPE_MIN_VALUE (index)
|
||
&& TYPE_SIZE (element))
|
||
{
|
||
tree ub = TYPE_MAX_VALUE (index);
|
||
tree lb = TYPE_MIN_VALUE (index);
|
||
tree length;
|
||
tree element_size;
|
||
|
||
/* If UB is max (lb - 1, x), remove the MAX_EXPR since the
|
||
test for negative below covers it. */
|
||
if (TREE_CODE (ub) == MAX_EXPR
|
||
&& TREE_CODE (TREE_OPERAND (ub, 0)) == MINUS_EXPR
|
||
&& integer_onep (TREE_OPERAND (TREE_OPERAND (ub, 0), 1))
|
||
&& operand_equal_p (TREE_OPERAND (TREE_OPERAND (ub, 0), 0),
|
||
lb, 0))
|
||
ub = TREE_OPERAND (ub, 1);
|
||
else if (TREE_CODE (ub) == MAX_EXPR
|
||
&& TREE_CODE (TREE_OPERAND (ub, 1)) == MINUS_EXPR
|
||
&& integer_onep (TREE_OPERAND (TREE_OPERAND (ub, 1), 1))
|
||
&& operand_equal_p (TREE_OPERAND (TREE_OPERAND (ub, 1),
|
||
0),
|
||
lb, 0))
|
||
ub = TREE_OPERAND (ub, 0);
|
||
|
||
/* The initial subtraction should happen in the original type so
|
||
that (possible) negative values are handled appropriately. */
|
||
length = size_binop (PLUS_EXPR, size_one_node,
|
||
fold (build (MINUS_EXPR, TREE_TYPE (lb),
|
||
ub, lb)));
|
||
|
||
/* If neither bound is a constant and sizetype is signed, make
|
||
sure the size is never negative. We should really do this
|
||
if *either* bound is non-constant, but this is the best
|
||
compromise between C and Ada. */
|
||
if (! TREE_UNSIGNED (sizetype)
|
||
&& TREE_CODE (TYPE_MIN_VALUE (index)) != INTEGER_CST
|
||
&& TREE_CODE (TYPE_MAX_VALUE (index)) != INTEGER_CST)
|
||
length = size_binop (MAX_EXPR, length, size_zero_node);
|
||
|
||
/* Special handling for arrays of bits (for Chill). */
|
||
element_size = TYPE_SIZE (element);
|
||
if (TYPE_PACKED (type) && INTEGRAL_TYPE_P (element))
|
||
{
|
||
HOST_WIDE_INT maxvalue, minvalue;
|
||
maxvalue = TREE_INT_CST_LOW (TYPE_MAX_VALUE (element));
|
||
minvalue = TREE_INT_CST_LOW (TYPE_MIN_VALUE (element));
|
||
if (maxvalue - minvalue == 1
|
||
&& (maxvalue == 1 || maxvalue == 0))
|
||
element_size = integer_one_node;
|
||
}
|
||
|
||
TYPE_SIZE (type) = size_binop (MULT_EXPR, element_size, length);
|
||
|
||
/* If we know the size of the element, calculate the total
|
||
size directly, rather than do some division thing below.
|
||
This optimization helps Fortran assumed-size arrays
|
||
(where the size of the array is determined at runtime)
|
||
substantially.
|
||
Note that we can't do this in the case where the size of
|
||
the elements is one bit since TYPE_SIZE_UNIT cannot be
|
||
set correctly in that case. */
|
||
if (TYPE_SIZE_UNIT (element) != 0
|
||
&& element_size != integer_one_node)
|
||
{
|
||
TYPE_SIZE_UNIT (type)
|
||
= size_binop (MULT_EXPR, TYPE_SIZE_UNIT (element), length);
|
||
}
|
||
}
|
||
|
||
/* Now round the alignment and size,
|
||
using machine-dependent criteria if any. */
|
||
|
||
#ifdef ROUND_TYPE_ALIGN
|
||
TYPE_ALIGN (type)
|
||
= ROUND_TYPE_ALIGN (type, TYPE_ALIGN (element), BITS_PER_UNIT);
|
||
#else
|
||
TYPE_ALIGN (type) = MAX (TYPE_ALIGN (element), BITS_PER_UNIT);
|
||
#endif
|
||
|
||
#ifdef ROUND_TYPE_SIZE
|
||
if (TYPE_SIZE (type) != 0)
|
||
{
|
||
tree tmp;
|
||
tmp = ROUND_TYPE_SIZE (type, TYPE_SIZE (type), TYPE_ALIGN (type));
|
||
/* If the rounding changed the size of the type, remove any
|
||
pre-calculated TYPE_SIZE_UNIT. */
|
||
if (simple_cst_equal (TYPE_SIZE (type), tmp) != 1)
|
||
TYPE_SIZE_UNIT (type) = NULL;
|
||
TYPE_SIZE (type) = tmp;
|
||
}
|
||
#endif
|
||
|
||
TYPE_MODE (type) = BLKmode;
|
||
if (TYPE_SIZE (type) != 0
|
||
&& TREE_CODE (TYPE_SIZE (type)) == INTEGER_CST
|
||
/* BLKmode elements force BLKmode aggregate;
|
||
else extract/store fields may lose. */
|
||
&& (TYPE_MODE (TREE_TYPE (type)) != BLKmode
|
||
|| TYPE_NO_FORCE_BLK (TREE_TYPE (type))))
|
||
{
|
||
TYPE_MODE (type)
|
||
= mode_for_size (TREE_INT_CST_LOW (TYPE_SIZE (type)),
|
||
MODE_INT, 1);
|
||
|
||
if (STRICT_ALIGNMENT && TYPE_ALIGN (type) < BIGGEST_ALIGNMENT
|
||
&& (int)TYPE_ALIGN (type) < TREE_INT_CST_LOW (TYPE_SIZE (type))
|
||
&& TYPE_MODE (type) != BLKmode)
|
||
{
|
||
TYPE_NO_FORCE_BLK (type) = 1;
|
||
TYPE_MODE (type) = BLKmode;
|
||
}
|
||
}
|
||
break;
|
||
}
|
||
|
||
case RECORD_TYPE:
|
||
pending_statics = layout_record (type);
|
||
TYPE_MODE (type) = BLKmode;
|
||
if (TREE_CODE (TYPE_SIZE (type)) == INTEGER_CST)
|
||
{
|
||
tree field;
|
||
enum machine_mode mode = VOIDmode;
|
||
|
||
/* A record which has any BLKmode members must itself be BLKmode;
|
||
it can't go in a register.
|
||
Unless the member is BLKmode only because it isn't aligned. */
|
||
for (field = TYPE_FIELDS (type); field; field = TREE_CHAIN (field))
|
||
{
|
||
int bitpos;
|
||
|
||
if (TREE_CODE (field) != FIELD_DECL)
|
||
continue;
|
||
|
||
if (TYPE_MODE (TREE_TYPE (field)) == BLKmode
|
||
&& ! TYPE_NO_FORCE_BLK (TREE_TYPE (field)))
|
||
goto record_lose;
|
||
|
||
if (TREE_CODE (DECL_FIELD_BITPOS (field)) != INTEGER_CST)
|
||
goto record_lose;
|
||
|
||
bitpos = TREE_INT_CST_LOW (DECL_FIELD_BITPOS (field));
|
||
|
||
/* Must be BLKmode if any field crosses a word boundary,
|
||
since extract_bit_field can't handle that in registers. */
|
||
if (bitpos / BITS_PER_WORD
|
||
!= ((TREE_INT_CST_LOW (DECL_SIZE (field)) + bitpos - 1)
|
||
/ BITS_PER_WORD)
|
||
/* But there is no problem if the field is entire words. */
|
||
&& TREE_INT_CST_LOW (DECL_SIZE (field)) % BITS_PER_WORD != 0)
|
||
goto record_lose;
|
||
|
||
/* If this field is the whole struct, remember its mode so
|
||
that, say, we can put a double in a class into a DF
|
||
register instead of forcing it to live in the stack. */
|
||
if (simple_cst_equal (TYPE_SIZE (type), DECL_SIZE (field)))
|
||
mode = DECL_MODE (field);
|
||
}
|
||
|
||
if (mode != VOIDmode)
|
||
/* We only have one real field; use its mode. */
|
||
TYPE_MODE (type) = mode;
|
||
else
|
||
TYPE_MODE (type)
|
||
= mode_for_size (TREE_INT_CST_LOW (TYPE_SIZE (type)),
|
||
MODE_INT, 1);
|
||
|
||
/* If structure's known alignment is less than
|
||
what the scalar mode would need, and it matters,
|
||
then stick with BLKmode. */
|
||
if (STRICT_ALIGNMENT
|
||
&& ! (TYPE_ALIGN (type) >= BIGGEST_ALIGNMENT
|
||
|| ((int)TYPE_ALIGN (type)
|
||
>= TREE_INT_CST_LOW (TYPE_SIZE (type)))))
|
||
{
|
||
if (TYPE_MODE (type) != BLKmode)
|
||
/* If this is the only reason this type is BLKmode,
|
||
then don't force containing types to be BLKmode. */
|
||
TYPE_NO_FORCE_BLK (type) = 1;
|
||
TYPE_MODE (type) = BLKmode;
|
||
}
|
||
|
||
record_lose: ;
|
||
}
|
||
|
||
/* Lay out any static members. This is done now
|
||
because their type may use the record's type. */
|
||
while (pending_statics)
|
||
{
|
||
layout_decl (TREE_VALUE (pending_statics), 0);
|
||
pending_statics = TREE_CHAIN (pending_statics);
|
||
}
|
||
break;
|
||
|
||
case UNION_TYPE:
|
||
case QUAL_UNION_TYPE:
|
||
layout_union (type);
|
||
TYPE_MODE (type) = BLKmode;
|
||
if (TREE_CODE (TYPE_SIZE (type)) == INTEGER_CST
|
||
/* If structure's known alignment is less than
|
||
what the scalar mode would need, and it matters,
|
||
then stick with BLKmode. */
|
||
&& (! STRICT_ALIGNMENT
|
||
|| TYPE_ALIGN (type) >= BIGGEST_ALIGNMENT
|
||
|| (int)TYPE_ALIGN (type) >= TREE_INT_CST_LOW (TYPE_SIZE (type))))
|
||
{
|
||
tree field;
|
||
/* A union which has any BLKmode members must itself be BLKmode;
|
||
it can't go in a register.
|
||
Unless the member is BLKmode only because it isn't aligned. */
|
||
for (field = TYPE_FIELDS (type); field; field = TREE_CHAIN (field))
|
||
{
|
||
if (TREE_CODE (field) != FIELD_DECL)
|
||
continue;
|
||
|
||
if (TYPE_MODE (TREE_TYPE (field)) == BLKmode
|
||
&& ! TYPE_NO_FORCE_BLK (TREE_TYPE (field)))
|
||
goto union_lose;
|
||
}
|
||
|
||
TYPE_MODE (type)
|
||
= mode_for_size (TREE_INT_CST_LOW (TYPE_SIZE (type)),
|
||
MODE_INT, 1);
|
||
|
||
union_lose: ;
|
||
}
|
||
break;
|
||
|
||
case SET_TYPE: /* Used by Chill and Pascal. */
|
||
if (TREE_CODE (TYPE_MAX_VALUE (TYPE_DOMAIN (type))) != INTEGER_CST
|
||
|| TREE_CODE (TYPE_MIN_VALUE (TYPE_DOMAIN (type))) != INTEGER_CST)
|
||
abort();
|
||
else
|
||
{
|
||
#ifndef SET_WORD_SIZE
|
||
#define SET_WORD_SIZE BITS_PER_WORD
|
||
#endif
|
||
int alignment = set_alignment ? set_alignment : SET_WORD_SIZE;
|
||
int size_in_bits
|
||
= (TREE_INT_CST_LOW (TYPE_MAX_VALUE (TYPE_DOMAIN (type)))
|
||
- TREE_INT_CST_LOW (TYPE_MIN_VALUE (TYPE_DOMAIN (type))) + 1);
|
||
int rounded_size
|
||
= ((size_in_bits + alignment - 1) / alignment) * alignment;
|
||
if (rounded_size > alignment)
|
||
TYPE_MODE (type) = BLKmode;
|
||
else
|
||
TYPE_MODE (type) = mode_for_size (alignment, MODE_INT, 1);
|
||
TYPE_SIZE (type) = bitsize_int (rounded_size, 0L);
|
||
TYPE_SIZE_UNIT (type) = size_int (rounded_size / BITS_PER_UNIT);
|
||
TYPE_ALIGN (type) = alignment;
|
||
TYPE_PRECISION (type) = size_in_bits;
|
||
}
|
||
break;
|
||
|
||
case FILE_TYPE:
|
||
/* The size may vary in different languages, so the language front end
|
||
should fill in the size. */
|
||
TYPE_ALIGN (type) = BIGGEST_ALIGNMENT;
|
||
TYPE_MODE (type) = BLKmode;
|
||
break;
|
||
|
||
default:
|
||
abort ();
|
||
} /* end switch */
|
||
|
||
/* Normally, use the alignment corresponding to the mode chosen.
|
||
However, where strict alignment is not required, avoid
|
||
over-aligning structures, since most compilers do not do this
|
||
alignment. */
|
||
|
||
if (TYPE_MODE (type) != BLKmode && TYPE_MODE (type) != VOIDmode
|
||
&& (STRICT_ALIGNMENT
|
||
|| (TREE_CODE (type) != RECORD_TYPE && TREE_CODE (type) != UNION_TYPE
|
||
&& TREE_CODE (type) != QUAL_UNION_TYPE
|
||
&& TREE_CODE (type) != ARRAY_TYPE)))
|
||
TYPE_ALIGN (type) = GET_MODE_ALIGNMENT (TYPE_MODE (type));
|
||
|
||
/* Do machine-dependent extra alignment. */
|
||
#ifdef ROUND_TYPE_ALIGN
|
||
TYPE_ALIGN (type)
|
||
= ROUND_TYPE_ALIGN (type, TYPE_ALIGN (type), BITS_PER_UNIT);
|
||
#endif
|
||
|
||
#ifdef ROUND_TYPE_SIZE
|
||
if (TYPE_SIZE (type) != 0)
|
||
TYPE_SIZE (type)
|
||
= ROUND_TYPE_SIZE (type, TYPE_SIZE (type), TYPE_ALIGN (type));
|
||
#endif
|
||
|
||
/* Evaluate nonconstant size only once, either now or as soon as safe. */
|
||
if (TYPE_SIZE (type) != 0 && TREE_CODE (TYPE_SIZE (type)) != INTEGER_CST)
|
||
TYPE_SIZE (type) = variable_size (TYPE_SIZE (type));
|
||
|
||
/* If we failed to find a simple way to calculate the unit size
|
||
of the type above, find it by division. */
|
||
if (TYPE_SIZE_UNIT (type) == 0 && TYPE_SIZE (type) != 0)
|
||
{
|
||
TYPE_SIZE_UNIT (type) = size_binop (FLOOR_DIV_EXPR, TYPE_SIZE (type),
|
||
size_int (BITS_PER_UNIT));
|
||
}
|
||
|
||
/* Once again evaluate only once, either now or as soon as safe. */
|
||
if (TYPE_SIZE_UNIT (type) != 0
|
||
&& TREE_CODE (TYPE_SIZE_UNIT (type)) != INTEGER_CST)
|
||
TYPE_SIZE_UNIT (type) = variable_size (TYPE_SIZE_UNIT (type));
|
||
|
||
/* Also layout any other variants of the type. */
|
||
if (TYPE_NEXT_VARIANT (type)
|
||
|| type != TYPE_MAIN_VARIANT (type))
|
||
{
|
||
tree variant;
|
||
/* Record layout info of this variant. */
|
||
tree size = TYPE_SIZE (type);
|
||
tree size_unit = TYPE_SIZE_UNIT (type);
|
||
int align = TYPE_ALIGN (type);
|
||
enum machine_mode mode = TYPE_MODE (type);
|
||
|
||
/* Copy it into all variants. */
|
||
for (variant = TYPE_MAIN_VARIANT (type);
|
||
variant;
|
||
variant = TYPE_NEXT_VARIANT (variant))
|
||
{
|
||
TYPE_SIZE (variant) = size;
|
||
TYPE_SIZE_UNIT (variant) = size_unit;
|
||
TYPE_ALIGN (variant) = align;
|
||
TYPE_MODE (variant) = mode;
|
||
}
|
||
}
|
||
|
||
pop_obstacks ();
|
||
resume_momentary (old);
|
||
}
|
||
|
||
/* Create and return a type for signed integers of PRECISION bits. */
|
||
|
||
tree
|
||
make_signed_type (precision)
|
||
int precision;
|
||
{
|
||
register tree type = make_node (INTEGER_TYPE);
|
||
|
||
TYPE_PRECISION (type) = precision;
|
||
|
||
/* Create the extreme values based on the number of bits. */
|
||
|
||
TYPE_MIN_VALUE (type)
|
||
= build_int_2 ((precision - HOST_BITS_PER_WIDE_INT > 0
|
||
? 0 : (HOST_WIDE_INT) (-1) << (precision - 1)),
|
||
(((HOST_WIDE_INT) (-1)
|
||
<< (precision - HOST_BITS_PER_WIDE_INT - 1 > 0
|
||
? precision - HOST_BITS_PER_WIDE_INT - 1
|
||
: 0))));
|
||
TYPE_MAX_VALUE (type)
|
||
= build_int_2 ((precision - HOST_BITS_PER_WIDE_INT > 0
|
||
? -1 : ((HOST_WIDE_INT) 1 << (precision - 1)) - 1),
|
||
(precision - HOST_BITS_PER_WIDE_INT - 1 > 0
|
||
? (((HOST_WIDE_INT) 1
|
||
<< (precision - HOST_BITS_PER_WIDE_INT - 1))) - 1
|
||
: 0));
|
||
|
||
/* Give this type's extreme values this type as their type. */
|
||
|
||
TREE_TYPE (TYPE_MIN_VALUE (type)) = type;
|
||
TREE_TYPE (TYPE_MAX_VALUE (type)) = type;
|
||
|
||
/* The first type made with this or `make_unsigned_type'
|
||
is the type for size values. */
|
||
|
||
if (sizetype == 0)
|
||
set_sizetype (type);
|
||
|
||
/* Lay out the type: set its alignment, size, etc. */
|
||
|
||
layout_type (type);
|
||
|
||
return type;
|
||
}
|
||
|
||
/* Create and return a type for unsigned integers of PRECISION bits. */
|
||
|
||
tree
|
||
make_unsigned_type (precision)
|
||
int precision;
|
||
{
|
||
register tree type = make_node (INTEGER_TYPE);
|
||
|
||
TYPE_PRECISION (type) = precision;
|
||
|
||
/* The first type made with this or `make_signed_type'
|
||
is the type for size values. */
|
||
|
||
if (sizetype == 0)
|
||
{
|
||
TREE_UNSIGNED (type) = 1;
|
||
set_sizetype (type);
|
||
}
|
||
|
||
fixup_unsigned_type (type);
|
||
return type;
|
||
}
|
||
|
||
/* Set sizetype to TYPE, and initialize *sizetype accordingly.
|
||
Also update the type of any standard type's sizes made so far. */
|
||
|
||
void
|
||
set_sizetype (type)
|
||
tree type;
|
||
{
|
||
int oprecision = TYPE_PRECISION (type), precision;
|
||
|
||
sizetype = type;
|
||
|
||
/* The *bitsizetype types use a precision that avoids overflows when
|
||
calculating signed sizes / offsets in bits.
|
||
|
||
We are allocating bitsizetype once and change it in place when
|
||
we decide later that we want to change it. This way, we avoid the
|
||
hassle of changing all the TYPE_SIZE (TREE_TYPE (sometype))
|
||
individually in each front end. */
|
||
if (! bitsizetype)
|
||
bitsizetype = make_node (INTEGER_TYPE);
|
||
if (TYPE_NAME (sizetype) && ! TYPE_NAME (bitsizetype))
|
||
TYPE_NAME (bitsizetype) = TYPE_NAME (sizetype);
|
||
|
||
precision = oprecision + BITS_PER_UNIT_LOG + 1;
|
||
/* However, when cross-compiling from a 32 bit to a 64 bit host,
|
||
we are limited to 64 bit precision. */
|
||
if (precision > 2 * HOST_BITS_PER_WIDE_INT)
|
||
precision = 2 * HOST_BITS_PER_WIDE_INT;
|
||
TYPE_PRECISION (bitsizetype) = precision;
|
||
if (TREE_UNSIGNED (type))
|
||
fixup_unsigned_type (bitsizetype);
|
||
else
|
||
fixup_signed_type (bitsizetype);
|
||
layout_type (bitsizetype);
|
||
|
||
if (TREE_UNSIGNED (type))
|
||
{
|
||
usizetype = sizetype;
|
||
ubitsizetype = bitsizetype;
|
||
ssizetype = make_signed_type (oprecision);
|
||
sbitsizetype = make_signed_type (precision);
|
||
}
|
||
else
|
||
{
|
||
ssizetype = sizetype;
|
||
sbitsizetype = bitsizetype;
|
||
usizetype = make_unsigned_type (oprecision);
|
||
ubitsizetype = make_unsigned_type (precision);
|
||
}
|
||
}
|
||
|
||
/* Set the extreme values of TYPE based on its precision in bits,
|
||
then lay it out. Used when make_signed_type won't do
|
||
because the tree code is not INTEGER_TYPE.
|
||
E.g. for Pascal, when the -fsigned-char option is given. */
|
||
|
||
void
|
||
fixup_signed_type (type)
|
||
tree type;
|
||
{
|
||
register int precision = TYPE_PRECISION (type);
|
||
|
||
TYPE_MIN_VALUE (type)
|
||
= build_int_2 ((precision - HOST_BITS_PER_WIDE_INT > 0
|
||
? 0 : (HOST_WIDE_INT) (-1) << (precision - 1)),
|
||
(((HOST_WIDE_INT) (-1)
|
||
<< (precision - HOST_BITS_PER_WIDE_INT - 1 > 0
|
||
? precision - HOST_BITS_PER_WIDE_INT - 1
|
||
: 0))));
|
||
TYPE_MAX_VALUE (type)
|
||
= build_int_2 ((precision - HOST_BITS_PER_WIDE_INT > 0
|
||
? -1 : ((HOST_WIDE_INT) 1 << (precision - 1)) - 1),
|
||
(precision - HOST_BITS_PER_WIDE_INT - 1 > 0
|
||
? (((HOST_WIDE_INT) 1
|
||
<< (precision - HOST_BITS_PER_WIDE_INT - 1))) - 1
|
||
: 0));
|
||
|
||
TREE_TYPE (TYPE_MIN_VALUE (type)) = type;
|
||
TREE_TYPE (TYPE_MAX_VALUE (type)) = type;
|
||
|
||
/* Lay out the type: set its alignment, size, etc. */
|
||
|
||
layout_type (type);
|
||
}
|
||
|
||
/* Set the extreme values of TYPE based on its precision in bits,
|
||
then lay it out. This is used both in `make_unsigned_type'
|
||
and for enumeral types. */
|
||
|
||
void
|
||
fixup_unsigned_type (type)
|
||
tree type;
|
||
{
|
||
register int precision = TYPE_PRECISION (type);
|
||
|
||
TYPE_MIN_VALUE (type) = build_int_2 (0, 0);
|
||
TYPE_MAX_VALUE (type)
|
||
= build_int_2 (precision - HOST_BITS_PER_WIDE_INT >= 0
|
||
? -1 : ((HOST_WIDE_INT) 1 << precision) - 1,
|
||
precision - HOST_BITS_PER_WIDE_INT > 0
|
||
? ((unsigned HOST_WIDE_INT) ~0
|
||
>> (HOST_BITS_PER_WIDE_INT
|
||
- (precision - HOST_BITS_PER_WIDE_INT)))
|
||
: 0);
|
||
TREE_TYPE (TYPE_MIN_VALUE (type)) = type;
|
||
TREE_TYPE (TYPE_MAX_VALUE (type)) = type;
|
||
|
||
/* Lay out the type: set its alignment, size, etc. */
|
||
|
||
layout_type (type);
|
||
}
|
||
|
||
/* Find the best machine mode to use when referencing a bit field of length
|
||
BITSIZE bits starting at BITPOS.
|
||
|
||
The underlying object is known to be aligned to a boundary of ALIGN bits.
|
||
If LARGEST_MODE is not VOIDmode, it means that we should not use a mode
|
||
larger than LARGEST_MODE (usually SImode).
|
||
|
||
If no mode meets all these conditions, we return VOIDmode. Otherwise, if
|
||
VOLATILEP is true or SLOW_BYTE_ACCESS is false, we return the smallest
|
||
mode meeting these conditions.
|
||
|
||
Otherwise (VOLATILEP is false and SLOW_BYTE_ACCESS is true), we return
|
||
the largest mode (but a mode no wider than UNITS_PER_WORD) that meets
|
||
all the conditions. */
|
||
|
||
enum machine_mode
|
||
get_best_mode (bitsize, bitpos, align, largest_mode, volatilep)
|
||
int bitsize, bitpos;
|
||
int align;
|
||
enum machine_mode largest_mode;
|
||
int volatilep;
|
||
{
|
||
enum machine_mode mode;
|
||
int unit = 0;
|
||
|
||
/* Find the narrowest integer mode that contains the bit field. */
|
||
for (mode = GET_CLASS_NARROWEST_MODE (MODE_INT); mode != VOIDmode;
|
||
mode = GET_MODE_WIDER_MODE (mode))
|
||
{
|
||
unit = GET_MODE_BITSIZE (mode);
|
||
if ((bitpos % unit) + bitsize <= unit)
|
||
break;
|
||
}
|
||
|
||
if (mode == MAX_MACHINE_MODE
|
||
/* It is tempting to omit the following line
|
||
if STRICT_ALIGNMENT is true.
|
||
But that is incorrect, since if the bitfield uses part of 3 bytes
|
||
and we use a 4-byte mode, we could get a spurious segv
|
||
if the extra 4th byte is past the end of memory.
|
||
(Though at least one Unix compiler ignores this problem:
|
||
that on the Sequent 386 machine. */
|
||
|| MIN (unit, BIGGEST_ALIGNMENT) > align
|
||
|| (largest_mode != VOIDmode && unit > GET_MODE_BITSIZE (largest_mode)))
|
||
return VOIDmode;
|
||
|
||
if (SLOW_BYTE_ACCESS && ! volatilep)
|
||
{
|
||
enum machine_mode wide_mode = VOIDmode, tmode;
|
||
|
||
for (tmode = GET_CLASS_NARROWEST_MODE (MODE_INT); tmode != VOIDmode;
|
||
tmode = GET_MODE_WIDER_MODE (tmode))
|
||
{
|
||
unit = GET_MODE_BITSIZE (tmode);
|
||
if (bitpos / unit == (bitpos + bitsize - 1) / unit
|
||
&& unit <= BITS_PER_WORD
|
||
&& unit <= MIN (align, BIGGEST_ALIGNMENT)
|
||
&& (largest_mode == VOIDmode
|
||
|| unit <= GET_MODE_BITSIZE (largest_mode)))
|
||
wide_mode = tmode;
|
||
}
|
||
|
||
if (wide_mode != VOIDmode)
|
||
return wide_mode;
|
||
}
|
||
|
||
return mode;
|
||
}
|
||
|
||
/* Save all variables describing the current status into the structure *P.
|
||
This is used before starting a nested function. */
|
||
|
||
void
|
||
save_storage_status (p)
|
||
struct function *p ATTRIBUTE_UNUSED;
|
||
{
|
||
#if 0 /* Need not save, since always 0 and non0 (resp.) within a function. */
|
||
p->pending_sizes = pending_sizes;
|
||
p->immediate_size_expand = immediate_size_expand;
|
||
#endif /* 0 */
|
||
}
|
||
|
||
/* Restore all variables describing the current status from the structure *P.
|
||
This is used after a nested function. */
|
||
|
||
void
|
||
restore_storage_status (p)
|
||
struct function *p ATTRIBUTE_UNUSED;
|
||
{
|
||
#if 0
|
||
pending_sizes = p->pending_sizes;
|
||
immediate_size_expand = p->immediate_size_expand;
|
||
#endif /* 0 */
|
||
}
|