1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Description: Work around GCC bug 70867.
Bug: https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70867
Forwarded: by mail 2016/04/28
Author: Nicolas Boulenguez <nicolas@debian.org>
--- a/opentoken-production-parser-lalr-parser_lists.adb
+++ b/opentoken-production-parser-lalr-parser_lists.adb
@@ -484,7 +484,7 @@
is
pragma Unreferenced (Container);
begin
- return (Element => Position.Item'Access);
+ return (Element => Position.all.Item'Access);
end Constant_Reference;
type List_Access_Constant is access constant List;
|
