OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Richard Henderson 2005-02-12 12:02:35 -08:00 committed by Richard Henderson
parent c202a7f94f
commit bd0b34a882
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -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.

8
gcc/ada/utils.c
View File

@ -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. */