a68: fix handling of flex modes in complete_encoded_mode [PR algol68/123006]

gcc/algol68/ChangeLog

	PR algol68/123006
	* a68-imports.cc (complete_encoded_mode): Fix handling of flex
	modes.
This commit is contained in:
Jose E. Marchesi
2025-12-17 18:17:26 +01:00
parent dcbf597cb0
commit c504ab2de5

View File

@@ -706,7 +706,9 @@ complete_encoded_mode (encoded_modes_map_t &encoded_modes, uint64_t offset)
/* For recursive declarations. */
em->moid = a68_create_mode (em->kind == GA68_MODE_NAME ? REF_SYMBOL : FLEX_SYMBOL,
0, NO_NODE, M_ERROR, NO_PACK);
sub = complete_encoded_mode (encoded_modes, em->data.name.sub_offset);
sub = complete_encoded_mode (encoded_modes,
em->kind == GA68_MODE_NAME
? em->data.name.sub_offset : em->data.flex.sub_offset);
if (sub == NO_MOID)
{
/* Free em->moid */