aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada
diff options
context:
space:
mode:
authorDiego Novillo <dnovillo@gcc.gnu.org>2004-05-13 02:41:07 -0400
committerDiego Novillo <dnovillo@gcc.gnu.org>2004-05-13 02:41:07 -0400
commit6de9cd9a886ea695aa892c3c7c07818a7b7e9e6f (patch)
treea2568888a519c077427b133de9ece5879a8484a5 /gcc/ada
parentac1a20aec53364d77f3bdff94a2a0a06840e0fe9 (diff)
downloadgcc-6de9cd9a886ea695aa892c3c7c07818a7b7e9e6f.zip
gcc-6de9cd9a886ea695aa892c3c7c07818a7b7e9e6f.tar.gz
gcc-6de9cd9a886ea695aa892c3c7c07818a7b7e9e6f.tar.bz2
Merge tree-ssa-20020619-branch into mainline.
From-SVN: r81764
Diffstat (limited to 'gcc/ada')
-rw-r--r--gcc/ada/ChangeLog9
-rw-r--r--gcc/ada/ChangeLog.tree-ssa29
-rw-r--r--gcc/ada/config-lang.in5
-rw-r--r--gcc/ada/utils.c5
4 files changed, 45 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 0abc877..3a057fa 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,12 @@
+2004-05-13 Diego Novillo <dnovillo@redhat.com>
+
+ Merge from tree-ssa-20020619-branch.
+
+ * config-lang.in (boot_language, build_by_default): Set
+ to no.
+ * utils.c (unchecked_convert): Use OEP_ONLY_CONST.
+ (max_size): Add static chain op for call_expr.
+
2004-05-12 Richard Sandiford <rsandifo@redhat.com>
PR target/15331
diff --git a/gcc/ada/ChangeLog.tree-ssa b/gcc/ada/ChangeLog.tree-ssa
new file mode 100644
index 0000000..73524e5
--- /dev/null
+++ b/gcc/ada/ChangeLog.tree-ssa
@@ -0,0 +1,29 @@
+2004-05-05 Richard Henderson <rth@redhat.com>
+
+ * utils.c (unchecked_convert): Use OEP_ONLY_CONST.
+
+2004-03-25 Diego Novillo <dnovillo@redhat.com>
+
+ * config-lang.in: Disable Ada by default.
+
+2004-02-16 Richard Henderson <rth@redhat.com>
+
+ * utils.c (max_size): Add static chain op for call_expr.
+
+2003-09-25 Jason Merrill <jason@redhat.com>
+
+ * trans.c, utils.c: Revert 2003-01-15 change.
+
+2003-01-15 Jeff Law <law@redhat.com>
+
+ * trans.c (tree_transform): Use annotate_with_file_line to add
+ file/line information to nodes.
+ (build_unit_elab): Use TREE_FILENAME and TREE_LINENO to
+ retrieve file/line information from a node.
+ * utils.c (create_label_decl): Use annotate_with_file_line to
+ add file/line information to nodes.
+
+Local Variables:
+mode: change-log
+change-log-default-name: "ChangeLog.tree-ssa"
+End:
diff --git a/gcc/ada/config-lang.in b/gcc/ada/config-lang.in
index 9a9599d..eb044af 100644
--- a/gcc/ada/config-lang.in
+++ b/gcc/ada/config-lang.in
@@ -27,7 +27,7 @@
# stagestuff - files to add to $(STAGESTUFF)
language="ada"
-boot_language=yes
+boot_language=no
boot_language_boot_flags='ADAFLAGS="$(BOOT_ADAFLAGS)"'
compilers="gnat1\$(exeext)"
@@ -39,3 +39,6 @@ gtfiles="\$(srcdir)/ada/ada-tree.h \$(srcdir)/ada/gigi.h \$(srcdir)/ada/decl.c \
outputs=ada/Makefile
target_libs="target-libada"
+
+# Ada will not work until the front end starts emitting GIMPLE trees.
+build_by_default=no
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c
index e1aac17..f84907d 100644
--- a/gcc/ada/utils.c
+++ b/gcc/ada/utils.c
@@ -2220,7 +2220,7 @@ max_size (tree exp, int max_p)
max_size (TREE_OPERAND (exp, 2), max_p)));
else if (code == CALL_EXPR && TREE_OPERAND (exp, 1) != 0)
return build (CALL_EXPR, type, TREE_OPERAND (exp, 0),
- max_size (TREE_OPERAND (exp, 1), max_p));
+ max_size (TREE_OPERAND (exp, 1), max_p), NULL);
}
}
@@ -3432,7 +3432,8 @@ unchecked_convert (tree type, tree expr, int notrunc_p)
/* If the sizes of the types differ and this is an VIEW_CONVERT_EXPR,
show no longer constant. */
if (TREE_CODE (expr) == VIEW_CONVERT_EXPR
- && ! operand_equal_p (TYPE_SIZE_UNIT (type), TYPE_SIZE_UNIT (etype), 1))
+ && ! operand_equal_p (TYPE_SIZE_UNIT (type), TYPE_SIZE_UNIT (etype),
+ OEP_ONLY_CONST))
TREE_CONSTANT (expr) = 0;
return expr;