branch: externals/wisi
commit 724a763e2f38b88392c046ab82bb1c0e96811ff5
Author: Stephen Leake <[email protected]>
Commit: Stephen Leake <[email protected]>
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
;;
