From e60d991f2d82727d730963ce975344812c62aec6 Mon Sep 17 00:00:00 2001 From: bdavis Date: Fri, 31 Mar 2006 00:47:13 +0000 Subject: [PATCH] 2006-03-30 Paul Thomas Bud Davis PR 21130 * module.c (load_needed): Traverse entire tree before returning. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@112558 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/module.c | 13 +++++++------ 2 files changed, 13 insertions(+), 6 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index e1d1d30..7d86235 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2006-03-30 Paul Thomas + Bud Davis + + PR 21130 + * module.c (load_needed): Traverse entire tree before returning. + 2006-03-30 Roger Sayle PR middle-end/22375 diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 0acc474..9949ccd 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -3061,16 +3061,17 @@ load_needed (pointer_info * p) gfc_namespace *ns; pointer_info *q; gfc_symbol *sym; + int rv; + rv = 0; if (p == NULL) - return 0; - if (load_needed (p->left)) - return 1; - if (load_needed (p->right)) - return 1; + return rv; + + rv |= load_needed (p->left); + rv |= load_needed (p->right); if (p->type != P_SYMBOL || p->u.rsym.state != NEEDED) - return 0; + return rv; p->u.rsym.state = USED; -- 2.7.4