diff options
| author | Richard Henderson <rth@redhat.com> | 2005-02-12 12:02:35 -0800 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2005-02-12 12:02:35 -0800 |
| commit | bd0b34a882a1b4d92cf8945ccc3968819f57892b (patch) | |
| tree | ebbf8903535c62ebe1aecaccf0b5bd2043c98eb6 /gcc | |
| parent | c202a7f94fbc1219edcdfcc35d14064ad04232b3 (diff) | |
| download | gcc-bd0b34a882a1b4d92cf8945ccc3968819f57892b.zip gcc-bd0b34a882a1b4d92cf8945ccc3968819f57892b.tar.gz gcc-bd0b34a882a1b4d92cf8945ccc3968819f57892b.tar.bz2 | |
utils.c (gnat_type_for_mode): Return NULL for COMPLEX modes...
* utils.c (gnat_type_for_mode): Return NULL for COMPLEX modes;
validate SCALAR_INT_MODE_P before calling gnat_type_for_size.
From-SVN: r94946
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/utils.c | 8 |
2 files changed, 11 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 862b9e5..eb7fd06 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2005-02-12 Richard Henderson <rth@redhat.com> + + * utils.c (gnat_type_for_mode): Return NULL for COMPLEX modes; + validate SCALAR_INT_MODE_P before calling gnat_type_for_size. + 2005-02-10 Andreas Jaeger <aj@suse.de> * init.c (__gnat_initialize): Mark parameter as unused. diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 549c093..0ba7381 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -1828,10 +1828,14 @@ gnat_type_for_mode (enum machine_mode mode, int unsignedp) return NULL_TREE; else if (mode == VOIDmode) return void_type_node; - else if (GET_MODE_CLASS (mode) == MODE_FLOAT) + else if (COMPLEX_MODE_P (mode)) + return NULL_TREE; + else if (SCALAR_FLOAT_MODE_P (mode)) return float_type_for_precision (GET_MODE_PRECISION (mode), mode); - else + else if (SCALAR_INT_MODE_P (mode)) return gnat_type_for_size (GET_MODE_BITSIZE (mode), unsignedp); + else + gcc_unreachable (); } /* Return the unsigned version of a TYPE_NODE, a scalar type. */ |