[COMMITTED] gen: add explicative message to E_constraint raised from bounds failure

[Jose E. Marchesi]

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

        * libpoke/pkl-gen.pks (array_constructor): Add explicative message
        to E_constraint raised from unsatisfied array boundaries.
        (array_mapper): Likewise.
---
 ChangeLog           | 6 ++++++
 libpoke/pkl-gen.pks | 6 ++++++
 2 files changed, 12 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 61f5b7e1..df1eebcb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2022-04-11  Jose E. Marchesi  <jemarch@gnu.org>
 
+       * libpoke/pkl-gen.pks (array_constructor): Add explicative message
+       to E_constraint raised from unsatisfied array boundaries.
+       (array_mapper): Likewise.
+
+2022-04-11  Jose E. Marchesi  <jemarch@gnu.org>
+
        * libpoke/pkl-gen.pks (array_mapper): Raise PVM_E_CONSTRAINT
        instead of PVM_E_MAP_BOUNDS in case of array bound failure.
        (array_constructor): Likewise.
diff --git a/libpoke/pkl-gen.pks b/libpoke/pkl-gen.pks
index 11930901..7405e82d 100644
--- a/libpoke/pkl-gen.pks
+++ b/libpoke/pkl-gen.pks
@@ -236,6 +236,9 @@
         return
 .bounds_fail:
         push PVM_E_CONSTRAINT
+        push "msg"
+        push "array type boundaries couldn't be satisfied"
+        sset
         raise
         .end
 
@@ -427,6 +430,9 @@
         return
 .bounds_fail:
         push PVM_E_CONSTRAINT
+        push "msg"
+        push "array type boundaries couldn't be satisfied"
+        sset
         raise
         .end
 
-- 
2.11.0