a68: add assert after calling a68_lower_tree on a unit list

Signed-off-by: Jose E. Marchesi <jemarch@gnu.org>
gcc/algol68/ChangeLog

	* a68-low-clauses.cc (a68_lower_collateral_clause): Check that
	a68_lower_tree on the units list return NULL_TREE.

diff --git a/gcc/algol68/a68-low-clauses.cc b/gcc/algol68/a68-low-clauses.cc
index 9fca4b872bc856ec1ef540e54a8811211e760450..fb77f964770affd101e75dcbe5ae46af062613d4 100644 (file)
--- a/gcc/algol68/a68-low-clauses.cc
+++ b/gcc/algol68/a68-low-clauses.cc
@@ -1072,7 +1072,12 @@ a68_lower_collateral_clause (NODE_T *p ATTRIBUTE_UNUSED,
   /* Lower the constituent units into a statements list.  */
   a68_push_stmt_list (mode);
   if (!clause_is_empty)
-    (void) a68_lower_tree (NEXT (SUB (p)), ctx);
+    {
+      if (a68_lower_tree (NEXT (SUB (p)), ctx) != NULL_TREE)
+       /* unit lists always lower to NULL_TREE and, as a side-effect,
+          append the units to the current statements list.  */
+       gcc_unreachable ();
+    }
   tree units = a68_pop_stmt_list ();
 
   /* The collateral clause lowers to different constructions depending on its