[COMMITTED] pkl: gen: fix backing up the GEN endianness

[Jose E. Marchesi]

2022-01-04  Jose E. Marchesi  <jemarch@gnu.org>

        * libpoke/pkl-gen.pks (struct_field_mapper): Fix backing up of GEN
        endianness.
        (struct_field_writer): Likewise.
---
 ChangeLog           | 6 ++++++
 libpoke/pkl-gen.pks | 4 ++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 83e36301..3b163850 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2022-01-04  Jose E. Marchesi  <jemarch@gnu.org>
+
+       * libpoke/pkl-gen.pks (struct_field_mapper): Fix backing up of GEN
+       endianness.
+       (struct_field_writer): Likewise.
+
 2022-01-04  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
 
        * pickles/btf-dump.pk (btf_dump_type_vdata): Use EXCOND operator.
diff --git a/libpoke/pkl-gen.pks b/libpoke/pkl-gen.pks
index 14841410..92042dd5 100644
--- a/libpoke/pkl-gen.pks
+++ b/libpoke/pkl-gen.pks
@@ -741,7 +741,7 @@
         pushe .constraint_error
         push PVM_E_EOF
         pushe .eof
-        .c { int endian = PKL_AST_STRUCT_TYPE_FIELD_ENDIAN (@field);
+        .c { int endian = PKL_GEN_PAYLOAD->endian;
         .c PKL_GEN_PAYLOAD->endian = PKL_AST_STRUCT_TYPE_FIELD_ENDIAN (@field);
         .c PKL_PASS_SUBPASS (PKL_AST_STRUCT_TYPE_FIELD_TYPE (@field));
         .c PKL_GEN_PAYLOAD->endian = endian;
@@ -1587,7 +1587,7 @@
         srefio                  ; IOS EVAL SCT I EBOFF
         nip2                    ; IOS EVAL EBOFF
         swap                    ; IOS EOFF EVAL
-        .c { int endian = PKL_AST_STRUCT_TYPE_FIELD_ENDIAN (@field);
+        .c { int endian = PKL_GEN_PAYLOAD->endian;
         .c PKL_GEN_PAYLOAD->endian = PKL_AST_STRUCT_TYPE_FIELD_ENDIAN (@field);
         .c PKL_GEN_PUSH_SET_CONTEXT (PKL_GEN_CTX_IN_WRITER);
         .c PKL_PASS_SUBPASS (PKL_AST_STRUCT_TYPE_FIELD_TYPE (@field));
-- 
2.11.0