Overview
| Comment: | Add explicit `limited` keyword in private type completion, as required by newer versions of GNAT |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c8aa6fc9a548f9c03f5c003490d86fa2 |
| User & Date: | nat on 2015-08-25 17:25:58 |
| Other Links: | manifest | tags |
Context
|
2015-08-26
| ||
| 17:27 |
constant_indefinite_ordered_maps: work around a regression in newer GNAT versions
For some reason GNAT 5.2 can't find Constant_Reference anymore, so creating new primitive functions so user-defined indexing still works. check-in: bfb15a00ff user: nat tags: trunk | |
|
2015-08-25
| ||
| 17:25 | Add explicit `limited` keyword in private type completion, as required by newer versions of GNAT check-in: c8aa6fc9a5 user: nat tags: trunk | |
|
2015-06-25
| ||
| 17:01 | s_expressions-templates-tests-dates: add a test for the new time zone override command check-in: 0dff00ad3f user: nat tags: trunk | |
Changes
Modified src/natools-s_expressions-parsers.ads from [e5d33e0334] to [d3a8d580f5].
| ︙ | ︙ | |||
118 119 120 121 122 123 124 |
Buffer : Atom_Buffers.Atom_Buffer;
Level : Natural := 0;
Lock_Stack : Lockable.Lock_Stack;
Locked : Boolean := False;
end record;
type Stream_Parser (Input : access Ada.Streams.Root_Stream_Type'Class) is
| | | 118 119 120 121 122 123 124 125 126 127 128 129 130 131 |
Buffer : Atom_Buffers.Atom_Buffer;
Level : Natural := 0;
Lock_Stack : Lockable.Lock_Stack;
Locked : Boolean := False;
end record;
type Stream_Parser (Input : access Ada.Streams.Root_Stream_Type'Class) is
limited new Parser with null record;
overriding procedure Read_More
(Self : in out Stream_Parser;
Buffer : out Atom_Buffers.Atom_Buffer);
end Natools.S_Expressions.Parsers;
|
Modified src/natools-s_expressions-printers-pretty.ads from [b0075c596a] to [033a294ac6].
| ︙ | ︙ | |||
132 133 134 135 136 137 138 |
Previous : Entity;
First : Boolean := True;
Indent_Level : Screen_Offset := 0;
Need_Blank : Boolean := False;
end record;
type Stream_Printer (Stream : access Ada.Streams.Root_Stream_Type'Class) is
| | | 132 133 134 135 136 137 138 139 140 141 142 143 144 145 |
Previous : Entity;
First : Boolean := True;
Indent_Level : Screen_Offset := 0;
Need_Blank : Boolean := False;
end record;
type Stream_Printer (Stream : access Ada.Streams.Root_Stream_Type'Class) is
limited new Printer with null record;
overriding procedure Write_Raw
(Output : in out Stream_Printer;
Data : in Ada.Streams.Stream_Element_Array);
end Natools.S_Expressions.Printers.Pretty;
|