From 77fd6d104a302eef12ab3d5e28602b66b5017656 Mon Sep 17 00:00:00 2001 From: Mark Mitchell Date: Mon, 1 Nov 1999 04:08:54 +0000 Subject: [PATCH] * expr.c (readonly_fields_p): Ignore everything except FIELD_DECLs. From-SVN: r30306 --- gcc/ChangeLog | 4 ++++ gcc/expr.c | 7 ++++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 9d6da58fec4..5815eb44d9d 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,7 @@ +Sun Oct 31 20:25:42 1999 Mark P. Mitchell + + * expr.c (readonly_fields_p): Ignore everything except FIELD_DECLs. + Sun Oct 31 20:42:17 1999 Kaveh R. Ghazi * hard-reg-set.h (reg_names): Constify a char*. diff --git a/gcc/expr.c b/gcc/expr.c index 59ae687c5d8..69c6f56bced 100644 --- a/gcc/expr.c +++ b/gcc/expr.c @@ -5573,9 +5573,10 @@ readonly_fields_p (type) tree field; for (field = TYPE_FIELDS (type); field != 0; field = TREE_CHAIN (field)) - if (TREE_READONLY (field) - || (TREE_CODE (TREE_TYPE (field)) == RECORD_TYPE - && readonly_fields_p (TREE_TYPE (field)))) + if (TREE_CODE (field) == FIELD_DECL + && (TREE_READONLY (field) + || (TREE_CODE (TREE_TYPE (field)) == RECORD_TYPE + && readonly_fields_p (TREE_TYPE (field))))) return 1; return 0; -- 2.30.2