From: Jose E. Marchesi <jemarch@gnu.org>
Date: Sat, 13 Jun 2026 15:53:33 +0000 (+0200)
Subject: a68: add assert after calling a68_lower_tree on a unit list
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=0d997fc5535adccb673333b7a47ba4a676324e45;p=thirdparty%2Fgcc.git

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 9fca4b872bc..fb77f964770 100644
--- 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