[COMMITTED] pkl: Fix assertion

[Mohammad-Reza Nabipoor]

2022-02-05  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>

        * libpoke/pkl-ast.c (pkl_ast_type_is_complete): Fix assertion.
---
 ChangeLog         | 4 ++++
 libpoke/pkl-ast.c | 3 ++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 8513abf5..89acb089 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2022-02-05  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
+
+       * libpoke/pkl-ast.c (pkl_ast_type_is_complete): Fix assertion.
+
 2022-02-05  Jose E. Marchesi  <jemarch@gnu.org>
 
        * libpoke/pvm.h: Prototype for pvm_ref_set_struct_cstr.
diff --git a/libpoke/pkl-ast.c b/libpoke/pkl-ast.c
index 9246bcfc..0a4a2a72 100644
--- a/libpoke/pkl-ast.c
+++ b/libpoke/pkl-ast.c
@@ -1291,7 +1291,8 @@ pkl_ast_type_is_complete (pkl_ast_node type)
 
                 size_node = PKL_AST_STRUCT_TYPE_FIELD_SIZE (elem);
                 assert (size_node);
-                assert (PKL_AST_TYPE_CODE (size_node) == PKL_TYPE_INTEGRAL);
+                assert (PKL_AST_TYPE_CODE (PKL_AST_TYPE (size_node))
+                        == PKL_TYPE_INTEGRAL);
                 if (size == -1)
                   size = PKL_AST_INTEGER_VALUE (size_node);
                 else if (PKL_AST_INTEGER_VALUE (size_node) != size)
-- 
2.35.1