From 9fe9a2e1a0476ab249415e5c96d6ec1e4bd91d6a Mon Sep 17 00:00:00 2001 From: Alexandre Petit-Bianco Date: Thu, 16 Apr 1998 04:49:07 -0700 Subject: tree.c (build_expr_wfl): Use NULL_TREE if the file name is NULL. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit � * tree.c (build_expr_wfl): Use NULL_TREE if the file name is NULL. Propagate TREE_SIDE_EFFECTS and TREE_TYPE iff the encapsulated node is non NULL. Cache last file name and file name identifier node. From-SVN: r19234 --- gcc/tree.c | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) (limited to 'gcc/tree.c') diff --git a/gcc/tree.c b/gcc/tree.c index c0b1e34..20805d5 100644 --- a/gcc/tree.c +++ b/gcc/tree.c @@ -3232,12 +3232,23 @@ build_expr_wfl (node, file, line, col) char *file; int line, col; { + static char *last_file = 0; + static tree last_filenode = NULL_TREE; register tree wfl = make_node (EXPR_WITH_FILE_LOCATION); + EXPR_WFL_NODE (wfl) = node; - EXPR_WFL_FILENAME_NODE (wfl) = get_identifier (file); EXPR_WFL_SET_LINECOL (wfl, line, col); - TREE_SIDE_EFFECTS (wfl) = TREE_SIDE_EFFECTS (node); - TREE_TYPE (wfl) = TREE_TYPE (node); + if (file != last_file) + { + last_file = file; + last_filenode = file ? get_identifier (file) : NULL_TREE; + } + EXPR_WFL_FILENAME_NODE (wfl) = last_filenode; + if (node) + { + TREE_SIDE_EFFECTS (wfl) = TREE_SIDE_EFFECTS (node); + TREE_TYPE (wfl) = TREE_TYPE (node); + } return wfl; } -- cgit v1.1