Natools

Check-in [c8aa6fc9a5]
Login
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: c8aa6fc9a548f9c03f5c003490d86fa2157547e1
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
125

126
127
128
129
130
131
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
     new Parser with null record;
     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
139

140
141
142
143
144
145
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
     new Printer with null record;
     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;