From: Tom Tromey Date: Tue, 12 Sep 2000 22:31:00 +0000 (+0000) Subject: expr.c (pop_type_0): Return `Object' if trying to merge two interface types. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=86e4b1e4fad12aa60440cca590a75829ed3bb0d4;p=gcc.git expr.c (pop_type_0): Return `Object' if trying to merge two interface types. * expr.c (pop_type_0): Return `Object' if trying to merge two interface types. * verify.c (merge_types): Don't return `TYPE_UNKNOWN' for interface types; `Object' is always a valid supertype. From-SVN: r36378 --- diff --git a/gcc/java/ChangeLog b/gcc/java/ChangeLog index 7b13f9a0485..68a1a131f3d 100644 --- a/gcc/java/ChangeLog +++ b/gcc/java/ChangeLog @@ -1,3 +1,10 @@ +2000-09-12 Tom Tromey + + * expr.c (pop_type_0): Return `Object' if trying to merge two + interface types. + * verify.c (merge_types): Don't return `TYPE_UNKNOWN' for + interface types; `Object' is always a valid supertype. + 2000-09-12 Tom Tromey Fix for PR gcj/33: diff --git a/gcc/java/expr.c b/gcc/java/expr.c index ebba1aca7fa..fbc08c69fa2 100644 --- a/gcc/java/expr.c +++ b/gcc/java/expr.c @@ -320,9 +320,8 @@ pop_type_0 (type) /* This is a kludge, but matches what Sun's verifier does. It can be tricked, but is safe as long as type errors (i.e. interface method calls) are caught at run-time. */ - else if (CLASS_INTERFACE (TYPE_NAME (TREE_TYPE (type))) - && t == object_ptr_type_node) - return t; + /* FIXME: this is worse than a kludge, probably. */ + return object_ptr_type_node; } return NULL_TREE; } diff --git a/gcc/java/verify.c b/gcc/java/verify.c index fcaf7f37af5..5bc82cfe381 100644 --- a/gcc/java/verify.c +++ b/gcc/java/verify.c @@ -173,6 +173,8 @@ merge_types (type1, type2) if (CLASS_INTERFACE (TYPE_NAME (tt1))) { + /* FIXME: should see if two interfaces have a common + superinterface. */ if (CLASS_INTERFACE (TYPE_NAME (tt2))) { /* This is a kludge, but matches what Sun's verifier does. @@ -185,7 +187,7 @@ merge_types (type1, type2) if (can_widen_reference_to (tt2, tt1)) return type1; else - return TYPE_UNKNOWN; + return object_ptr_type_node; } } else if (CLASS_INTERFACE (TYPE_NAME (tt2))) @@ -193,7 +195,7 @@ merge_types (type1, type2) if (can_widen_reference_to (tt1, tt2)) return type2; else - return TYPE_UNKNOWN; + return object_ptr_type_node; } type1 = tt1;