Natools

Check-in [8f20693700]
Login
Overview
Comment:s_expressions-generic_caches: fix incorrect handling of Open_List and Close_List on brand new cache objects
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8f20693700018e1b0da2b1aed43762399630d39e
User & Date: nat on 2014-03-09 15:34:03
Other Links: manifest | tags
Context
2014-03-10
19:54
s_expressions-lockable-tests: extended lockable interface test to reach full coverage of both implementations check-in: d1c2d9f36c user: nat tags: trunk
2014-03-09
15:34
s_expressions-generic_caches: fix incorrect handling of Open_List and Close_List on brand new cache objects check-in: 8f20693700 user: nat tags: trunk
2014-03-08
14:11
s_expressions-cache_tests: add a test for the new Lockable.Descriptor interface of cache objects check-in: 0faa8fc7d8 user: nat tags: trunk
Changes

Modified src/natools-s_expressions-generic_caches.adb from [18facc84e2] to [53e712c6b3].

185
186
187
188
189
190
191




192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208

209


210
211
212
213
214
215
216
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213

214
215
216
217
218
219
220
221
222







+
+
+
+

















+
-
+
+








   -----------------------
   -- Printer Interface --
   -----------------------

   overriding procedure Open_List (Output : in out Reference) is
   begin
      if Output.Exp.Is_Empty then
         Output.Exp.Replace (Create_Tree'Access);
      end if;

      Output.Exp.Update.Data.Append (List_Node);
   end Open_List;


   overriding procedure Append_Atom
     (Output : in out Reference; Data : in Atom) is
   begin
      if Output.Exp.Is_Empty then
         Output.Exp.Replace (Create_Tree'Access);
      end if;

      Output.Exp.Update.Data.Append (Atom_Node, new Atom'(Data));
   end Append_Atom;


   overriding procedure Close_List (Output : in out Reference) is
   begin
      if not Output.Exp.Is_Empty then
      Output.Exp.Update.Data.Close_List;
         Output.Exp.Update.Data.Close_List;
      end if;
   end Close_List;



   -------------------------
   -- Reading Subprograms --
   -------------------------