[COMMITTED master] pkl-ast: include itype for integral structs in pkl_type_str

[Jose E. Marchesi]

2024-03-31  Jose E. Marchesi  <jemarch@gnu.org>

        * libpoke/pkl-ast.c (pkl_type_append_to): Include itype in
        integral struct type string representations.
---
 ChangeLog         |  5 +++++
 libpoke/pkl-ast.c | 11 ++++++++++-
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 8d15f43c..cc744920 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-03-31  Jose E. Marchesi  <jemarch@gnu.org>
+
+       * libpoke/pkl-ast.c (pkl_type_append_to): Include itype in
+       integral struct type string representations.
+
 2024-03-31  Jose E. Marchesi  <jemarch@gnu.org>
 
        * libpoke/pkl-pass.c (pkl_do_pass_1): Do not increase reference
diff --git a/libpoke/pkl-ast.c b/libpoke/pkl-ast.c
index 627b1f1b..de8cc963 100644
--- a/libpoke/pkl-ast.c
+++ b/libpoke/pkl-ast.c
@@ -1564,7 +1564,16 @@ pkl_type_append_to (pkl_ast_node type, int 
use_given_name,
         if (PKL_AST_TYPE_S_UNION_P (type))
           sb_append (buffer, "union {");
         else
-          sb_append (buffer, "struct {");
+          {
+            if (PKL_AST_TYPE_S_ITYPE (type))
+              {
+                sb_append (buffer, "struct ");
+                pkl_type_append_to (PKL_AST_TYPE_S_ITYPE (type), 0, buffer);
+                sb_append (buffer, " {");
+              }
+            else
+              sb_append (buffer, "struct {");
+          }
 
         for (t = PKL_AST_TYPE_S_ELEMS (type); t;
              t = PKL_AST_CHAIN (t))
-- 
2.30.2