From: Alexandre Petit-Bianco <apbianco@sendai.cygnus.com>
Date: Thu, 16 Apr 1998 11:49:07 +0000 (-0700)
Subject: tree.c (build_expr_wfl): Use NULL_TREE if the file name is NULL.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9fe9a2e1a0476ab249415e5c96d6ec1e4bd91d6a;p=gcc.git

tree.c (build_expr_wfl): Use NULL_TREE if the file name is NULL.

�
        * 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
---

diff --git a/gcc/tree.c b/gcc/tree.c
index c0b1e34c2c6..20805d5cef3 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;
 }