diff options
| author | rms <rms@138bc75d-0d04-0410-961f-82ee72b054a4> | 1993-03-09 23:55:57 +0000 |
|---|---|---|
| committer | rms <rms@138bc75d-0d04-0410-961f-82ee72b054a4> | 1993-03-09 23:55:57 +0000 |
| commit | 080e766e265ce800e1fc575aec23ee2aefaa4cda (patch) | |
| tree | 35fafcb653b74c7227781dfee89cca083bd65397 | |
| parent | c96fd6cc757114deb4365ee1d233fd666e5fb2ca (diff) | |
| download | gcc-080e766e265ce800e1fc575aec23ee2aefaa4cda.tar.gz | |
(convert_to_complex): Avoid using comptypes.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@3688 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/convert.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/convert.c b/gcc/convert.c index 95bac9c3fec..5ccce13882b 100644 --- a/gcc/convert.c +++ b/gcc/convert.c @@ -397,7 +397,8 @@ convert_to_complex (type, expr) if (form == COMPLEX_TYPE) { - if (comptypes (TREE_TYPE (type), TREE_TYPE (TREE_TYPE (expr)))) + tree elt_type = TREE_TYPE (TREE_TYPE (expr)); + if (TYPE_MAIN_VARIANT (elt_type) == TYPE_MAIN_VARIANT (TREE_TYPE (type))) return expr; else if (TREE_CODE (expr) == COMPLEX_EXPR) return fold (build (COMPLEX_EXPR, |