From bfa30b22c7637187d60bc8a85ec3fee005fccbc4 Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Mon, 11 May 1992 22:51:59 -0400 Subject: *** empty log message *** From-SVN: r961 --- gcc/tree.c | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'gcc/tree.c') diff --git a/gcc/tree.c b/gcc/tree.c index 2b914a6..5207ba1 100644 --- a/gcc/tree.c +++ b/gcc/tree.c @@ -3104,22 +3104,22 @@ int_fits_type_p (c, type) && !INT_CST_LT (c, TYPE_MIN_VALUE (type))); } -/* Return the innermost context enclosing FNDECL that is +/* Return the innermost context enclosing DECL that is a FUNCTION_DECL, or zero if none. */ tree -decl_function_context (fndecl) - tree fndecl; +decl_function_context (decl) + tree decl; { tree context; - if (TREE_CODE (fndecl) == ERROR_MARK) + if (TREE_CODE (decl) == ERROR_MARK) return 0; - if (TREE_CODE (fndecl) == SAVE_EXPR) - context = SAVE_EXPR_CONTEXT (fndecl); + if (TREE_CODE (decl) == SAVE_EXPR) + context = SAVE_EXPR_CONTEXT (decl); else - context = DECL_CONTEXT (fndecl); + context = DECL_CONTEXT (decl); while (context && TREE_CODE (context) != FUNCTION_DECL) { @@ -3138,15 +3138,15 @@ decl_function_context (fndecl) return context; } -/* Return the innermost context enclosing FNDECL that is +/* Return the innermost context enclosing DECL that is a RECORD_TYPE or UNION_TYPE, or zero if none. TYPE_DECLs and FUNCTION_DECLs are transparent to this function. */ tree -decl_type_context (fndecl) - tree fndecl; +decl_type_context (decl) + tree decl; { - tree context = DECL_CONTEXT (fndecl); + tree context = DECL_CONTEXT (decl); while (context) { -- cgit v1.1