diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2006-03-04 18:27:08 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2006-03-04 18:27:08 +0000 |
| commit | 936a6fa78adb1daf15cae50649f1413262697dcf (patch) | |
| tree | b03d4babea37195fff6bc1c1fc2c7d0273ce21a4 /gcc/ada/utils2.c | |
| parent | 4469af7acf60b8af84174ece207e847e74067b27 (diff) | |
| download | gcc-936a6fa78adb1daf15cae50649f1413262697dcf.zip gcc-936a6fa78adb1daf15cae50649f1413262697dcf.tar.gz gcc-936a6fa78adb1daf15cae50649f1413262697dcf.tar.bz2 | |
gigi.h (get_ada_base_type): Delete.
* gigi.h (get_ada_base_type): Delete.
* utils2.c (get_ada_base_type): Likewise.
* trans.c (convert_with_check): Operate in the real base type.
From-SVN: r111711
Diffstat (limited to 'gcc/ada/utils2.c')
| -rw-r--r-- | gcc/ada/utils2.c | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/gcc/ada/utils2.c b/gcc/ada/utils2.c index ee8dec5..65837bb 100644 --- a/gcc/ada/utils2.c +++ b/gcc/ada/utils2.c @@ -123,19 +123,6 @@ get_base_type (tree type) return type; } - -/* Likewise, but only return types known to the Ada source. */ -tree -get_ada_base_type (tree type) -{ - while (TREE_TYPE (type) - && (TREE_CODE (type) == INTEGER_TYPE - || TREE_CODE (type) == REAL_TYPE) - && !TYPE_EXTRA_SUBTYPE_P (type)) - type = TREE_TYPE (type); - - return type; -} /* EXP is a GCC tree representing an address. See if we can find how strictly the object at that address is aligned. Return that alignment |