[elpa] externals/wisi 724a763 31/35: In wisi sal-gen_unbounded_definite_red_black_trees.adb, correct WORKAROUND

[Stefan Monnier]

branch: externals/wisi
commit 724a763e2f38b88392c046ab82bb1c0e96811ff5
Author: Stephen Leake <stephen_leake@stephe-leake.org>
Commit: Stephen Leake <stephen_leake@stephe-leake.org>

    In wisi sal-gen_unbounded_definite_red_black_trees.adb, correct WORKAROUND
    
    * packages/wisi/wisi.el: Bump version.
---
 sal-gen_unbounded_definite_red_black_trees.adb | 4 ++--
 wisi.el                                        | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/sal-gen_unbounded_definite_red_black_trees.adb 
b/sal-gen_unbounded_definite_red_black_trees.adb
index b7c8c44..0cbd6dd 100644
--- a/sal-gen_unbounded_definite_red_black_trees.adb
+++ b/sal-gen_unbounded_definite_red_black_trees.adb
@@ -323,7 +323,7 @@ package body SAL.Gen_Unbounded_Definite_Red_Black_Trees is
          --  either way, so both compilers have a bug. Keeping .all for now;
          --  just delete it if you are using 21.0w. Hopefully 21 will fix the
          --  bug. AdaCore ticket T503-001 on Eurocontrol support contract.
-         return (Element => Node.Element'Access, Dummy => 1);
+         return (Element => Node.all.Element'Access, Dummy => 1);
       end if;
    end Constant_Reference;
 
@@ -349,7 +349,7 @@ package body SAL.Gen_Unbounded_Definite_Red_Black_Trees is
          raise Not_Found;
       else
          --  WORKAROUND: see note in Constant_Reference
-         return (Element => Node.Element'Access, Dummy => 1);
+         return (Element => Node.all.Element'Access, Dummy => 1);
       end if;
    end Variable_Reference;
 
diff --git a/wisi.el b/wisi.el
index 7dce87b..48e9dc0 100644
--- a/wisi.el
+++ b/wisi.el
@@ -7,7 +7,7 @@
 ;; Keywords: parser
 ;;  indentation
 ;;  navigation
-;; Version: 3.1.0
+;; Version: 3.1.1
 ;; package-requires: ((emacs "25.0") (seq "2.20"))
 ;; URL: http://stephe-leake.org/ada/wisitoken.html
 ;;