diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2021-01-03 21:40:04 +0100 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2021-01-03 21:40:04 +0100 |
| commit | afae4a55ccaa0de95ea11e5f634084db6ab2f444 (patch) | |
| tree | d632cc867d10410ba9fb750523be790b86846ac4 /gcc/genmodes.c | |
| parent | 9d9a82ec8478ff52c7a9d61f58cd2a7b6295b5f9 (diff) | |
| parent | d2eb616a0f7bea78164912aa438c29fe1ef5774a (diff) | |
| download | gcc-afae4a55ccaa0de95ea11e5f634084db6ab2f444.zip gcc-afae4a55ccaa0de95ea11e5f634084db6ab2f444.tar.gz gcc-afae4a55ccaa0de95ea11e5f634084db6ab2f444.tar.bz2 | |
Merge branch 'master' into devel/coarray_native
Diffstat (limited to 'gcc/genmodes.c')
| -rw-r--r-- | gcc/genmodes.c | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/genmodes.c b/gcc/genmodes.c index bd78310..34b52fe 100644 --- a/gcc/genmodes.c +++ b/gcc/genmodes.c @@ -358,6 +358,14 @@ complete_mode (struct mode_data *m) m->component = 0; break; + case MODE_OPAQUE: + /* Opaque modes have size and precision. */ + validate_mode (m, OPTIONAL, SET, UNSET, UNSET, UNSET); + + m->ncomponents = 1; + m->component = 0; + break; + case MODE_PARTIAL_INT: /* A partial integer mode uses ->component to say what the corresponding full-size integer mode is, and may also @@ -588,6 +596,20 @@ make_int_mode (const char *name, m->precision = precision; } +#define OPAQUE_MODE(N, B) \ + make_opaque_mode (#N, -1U, B, __FILE__, __LINE__) + +static void ATTRIBUTE_UNUSED +make_opaque_mode (const char *name, + unsigned int precision, + unsigned int bytesize, + const char *file, unsigned int line) +{ + struct mode_data *m = new_mode (MODE_OPAQUE, name, file, line); + m->bytesize = bytesize; + m->precision = precision; +} + #define FRACT_MODE(N, Y, F) \ make_fixed_point_mode (MODE_FRACT, #N, Y, 0, F, __FILE__, __LINE__) |