utils.c (gnat_poplevel): Use block_chainon.

gcc/ada/
	* gcc-interface/utils.c (gnat_poplevel): Use block_chainon.

gcc/
	* function.h (block_chainon): Declare.
	* function.c (block_chainon): Define.

gcc/cp/
	* decl.c (poplevel): Use block_chainon.

gcc/fortran//
	* f95-lang.c (poplevel): Use BLOCK_CHAIN and block_chainon.

gcc/java/
	* decl.c (poplevel): Use BLOCK_CHAIN and block_chainon.

From-SVN: r172418

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 6d0c01a20414259e66334832b6aa3481b42e5f7f..0aa3fab80864d605d5f45de0645b81648b7d1ccb 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-14  Nathan Froyd  <froydnj@codesourcery.com>
+
+       * function.h (block_chainon): Declare.
+       * function.c (block_chainon): Define.
+
 2011-04-14  Anatoly Sokolov  <aesok@post.ru>
             Eric Weddington  <eric.weddington@atmel.com>
             Georg-Johann Lay <avr@gjlay.de> 

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 2c0aeb85bb4c2988d12ffdf5e5504ec4167a1bb3..3e8595940d7b5d86ea4c597eb35ffffcc5d349d1 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2011-04-14  Nathan Froyd  <froydnj@codesourcery.com>
+
+       * gcc-interface/utils.c (gnat_poplevel): Use block_chainon.
+
 2011-04-12  Nathan Froyd  <froydnj@codesourcery.com>
 
        * gcc-interface/ada-tree.h (union lang_tree_node): Check for TS_COMMON

diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c
index 3ecea18bc6759fae7836208791d25c19eb1e7c53..1031ee9b43e68ccc0da6b0a3524e2926fcb3f920 100644 (file)
--- a/gcc/ada/gcc-interface/utils.c
+++ b/gcc/ada/gcc-interface/utils.c
@@ -459,8 +459,8 @@ gnat_poplevel (void)
   else if (BLOCK_VARS (block) == NULL_TREE)
     {
       BLOCK_SUBBLOCKS (level->chain->block)
-       = chainon (BLOCK_SUBBLOCKS (block),
-                  BLOCK_SUBBLOCKS (level->chain->block));
+       = block_chainon (BLOCK_SUBBLOCKS (block),
+                        BLOCK_SUBBLOCKS (level->chain->block));
       BLOCK_CHAIN (block) = free_block_chain;
       free_block_chain = block;
     }

diff --git a/gcc/cp/ChangeLog b/gcc/cp/ChangeLog
index 05f12bed4eb00b45d4f3e05b205e256f92c7cf08..271da0c854ccbb3e29f97b2eb07dfe865a259eac 100644 (file)
--- a/gcc/cp/ChangeLog
+++ b/gcc/cp/ChangeLog
@@ -1,3 +1,7 @@
+2011-04-14  Nathan Froyd  <froydnj@codesourcery.com>
+
+       * decl.c (poplevel): Use block_chainon.
+
 2011-04-13  Jason Merrill  <jason@redhat.com>
 
        PR c++/48594

diff --git a/gcc/cp/decl.c b/gcc/cp/decl.c
index 7dea9b7baa556b35105193d424aca092de8dfdf8..75538866a71de4bd44deb5482f0d2de6973b38d0 100644 (file)
--- a/gcc/cp/decl.c
+++ b/gcc/cp/decl.c
@@ -794,7 +794,7 @@ poplevel (int keep, int reverse, int functionbody)
     }
   else if (block)
     current_binding_level->blocks
-      = chainon (current_binding_level->blocks, block);
+      = block_chainon (current_binding_level->blocks, block);
 
   /* If we did not make a block for the level just exited,
      any blocks made for inner levels
@@ -803,7 +803,7 @@ poplevel (int keep, int reverse, int functionbody)
      of something else.  */
   else if (subblocks)
     current_binding_level->blocks
-      = chainon (current_binding_level->blocks, subblocks);
+      = block_chainon (current_binding_level->blocks, subblocks);
 
   /* Each and every BLOCK node created here in `poplevel' is important
      (e.g. for proper debugging information) so if we created one

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 96b92dca6e3b9a4b2b66e813c9b8fe6d75ad6dd9..5e155e0d240beabe6ec4afcdd3a513a9f4666244 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2011-04-14  Nathan Froyd  <froydnj@codesourcery.com>
+
+       * f95-lang.c (poplevel): Use BLOCK_CHAIN and block_chainon.
+
 2011-04-12  Nathan Froyd  <froydnj@codesourcery.com>
 
        * f95-lang.c (union lang_tree_node): Check for TS_COMMON before

diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c
index ffe8953ef5fe991667cdf1e179fb1a715dc45568..eb38484ee33388d24461561341f38a5b7561481e 100644 (file)
--- a/gcc/fortran/f95-lang.c
+++ b/gcc/fortran/f95-lang.c
@@ -444,7 +444,7 @@ poplevel (int keep, int reverse, int functionbody)
 
   /* Record the BLOCK node just built as the subblock its enclosing scope.  */
   for (subblock_node = subblock_chain; subblock_node;
-       subblock_node = TREE_CHAIN (subblock_node))
+       subblock_node = BLOCK_CHAIN (subblock_node))
     BLOCK_SUPERCONTEXT (subblock_node) = block_node;
 
   /* Clear out the meanings of the local variables of this level.  */
@@ -475,7 +475,7 @@ poplevel (int keep, int reverse, int functionbody)
   else if (block_node)
     {
       current_binding_level->blocks
-       = chainon (current_binding_level->blocks, block_node);
+       = block_chainon (current_binding_level->blocks, block_node);
     }
 
   /* If we did not make a block for the level just exited, any blocks made for
@@ -484,7 +484,7 @@ poplevel (int keep, int reverse, int functionbody)
      else.  */
   else if (subblock_chain)
     current_binding_level->blocks
-      = chainon (current_binding_level->blocks, subblock_chain);
+      = block_chainon (current_binding_level->blocks, subblock_chain);
   if (block_node)
     TREE_USED (block_node) = 1;
 

diff --git a/gcc/function.c b/gcc/function.c
index c292282070ce4ee49bf5235ce0a90497d2f94611..dd42fba6692178eac2f30f82015089c43eb94641 100644 (file)
--- a/gcc/function.c
+++ b/gcc/function.c
@@ -4179,6 +4179,34 @@ blocks_nreverse (tree t)
   return prev;
 }
 
+/* Concatenate two chains of blocks (chained through BLOCK_CHAIN)
+   by modifying the last node in chain 1 to point to chain 2.  */
+
+tree
+block_chainon (tree op1, tree op2)
+{
+  tree t1;
+
+  if (!op1)
+    return op2;
+  if (!op2)
+    return op1;
+
+  for (t1 = op1; BLOCK_CHAIN (t1); t1 = BLOCK_CHAIN (t1))
+    continue;
+  BLOCK_CHAIN (t1) = op2;
+
+#ifdef ENABLE_TREE_CHECKING
+  {
+    tree t2;
+    for (t2 = op2; t2; t2 = BLOCK_CHAIN (t2))
+      gcc_assert (t2 != t1);
+  }
+#endif
+
+  return op1;
+}
+
 /* Count the subblocks of the list starting with BLOCK.  If VECTOR is
    non-NULL, list them all into VECTOR, in a depth-first preorder
    traversal of the block tree.  Also clear TREE_ASM_WRITTEN in all

diff --git a/gcc/function.h b/gcc/function.h
index 6e7f53907c98fc6897363667f431e366df803b6a..73af2948eb8960590fa5f883a0cd54fe77d20386 100644 (file)
--- a/gcc/function.h
+++ b/gcc/function.h
@@ -713,6 +713,7 @@ extern void number_blocks (tree);
 
 extern void clear_block_marks (tree);
 extern tree blocks_nreverse (tree);
+extern tree block_chainon (tree, tree);
 
 /* Return size needed for stack frame based on slots so far allocated.
    This size counts from zero.  It is not rounded to STACK_BOUNDARY;

diff --git a/gcc/java/ChangeLog b/gcc/java/ChangeLog
index 0c1912065ba1bca5edf3308262db26eb5bf578c2..a96b5079ea9f913463c102b4b465023cd48b4616 100644 (file)
--- a/gcc/java/ChangeLog
+++ b/gcc/java/ChangeLog
@@ -1,3 +1,7 @@
+2011-04-14  Nathan Froyd  <froydnj@codesourcery.com>
+
+       * decl.c (poplevel): Use BLOCK_CHAIN and block_chainon.
+
 2011-04-12  Nathan Froyd  <froydnj@codesourcery.com>
 
        * java-tree.h (union lang_tree_node): Check for TS_COMMON before

diff --git a/gcc/java/decl.c b/gcc/java/decl.c
index 75f44c97585eaa573f0d328ad638215d18fa3f8b..cb012485d00712b242b9fc2e87af150215c084a5 100644 (file)
--- a/gcc/java/decl.c
+++ b/gcc/java/decl.c
@@ -1481,7 +1481,7 @@ poplevel (int keep, int reverse, int functionbody)
 
   /* In each subblock, record that this is its superior.  */
 
-  for (link = subblocks; link; link = TREE_CHAIN (link))
+  for (link = subblocks; link; link = BLOCK_CHAIN (link))
     BLOCK_SUPERCONTEXT (link) = block;
 
   /* Clear out the meanings of the local variables of this level.  */
@@ -1545,7 +1545,7 @@ poplevel (int keep, int reverse, int functionbody)
       if (block)
        {
          current_binding_level->blocks
-           = chainon (current_binding_level->blocks, block);
+           = block_chainon (current_binding_level->blocks, block);
        }
       /* If we did not make a block for the level just exited,
         any blocks made for inner levels
@@ -1554,7 +1554,7 @@ poplevel (int keep, int reverse, int functionbody)
         of something else.  */
       else if (subblocks)
        current_binding_level->blocks
-         = chainon (current_binding_level->blocks, subblocks);
+         = block_chainon (current_binding_level->blocks, subblocks);
 
       if (bind)
        java_add_stmt (bind);