branch: master commit 7c0115ae7935839b8ac73363ef25e74d1cadba2d Author: Stephen Leake <stephen_le...@stephe-leake.org> Commit: Stephen Leake <stephen_le...@stephe-leake.org>
In wisi sal-gen_unbounded_definite_red_black_trees.adb, correct WORKAROUND * packages/wisi/wisi.el: Bump version. --- packages/wisi/sal-gen_unbounded_definite_red_black_trees.adb | 4 ++-- packages/wisi/wisi.el | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/packages/wisi/sal-gen_unbounded_definite_red_black_trees.adb b/packages/wisi/sal-gen_unbounded_definite_red_black_trees.adb index b7c8c44..0cbd6dd 100644 --- a/packages/wisi/sal-gen_unbounded_definite_red_black_trees.adb +++ b/packages/wisi/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/packages/wisi/wisi.el b/packages/wisi/wisi.el index 7dce87b..48e9dc0 100644 --- a/packages/wisi/wisi.el +++ b/packages/wisi/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 ;;