Natools

Check-in [eade42f305]
Login
Overview
Comment:s_expressions-generic_caches: fix exception in empty Cursor assignment (though I don't understand what was wrong)
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: eade42f3051699caf2a2bb2c7afa9b7ffeda7342
User & Date: nat on 2014-02-25 19:45:37
Other Links: manifest | tags
Context
2014-02-26
22:52
s_expressions-generic_caches: return End_Of_Input instead of Error, to fix behaviour of empty cursors check-in: 53eb91b3c5 user: nat tags: trunk
2014-02-25
19:45
s_expressions-generic_caches: fix exception in empty Cursor assignment (though I don't understand what was wrong) check-in: eade42f305 user: nat tags: trunk
2014-02-24
19:31
s_expressions-cache_tests: add checks using empty reference and cursor check-in: 7d6b6a6e6e user: nat tags: trunk
Changes

Modified src/natools-s_expressions-generic_caches.ads from [caee50ade0] to [d6fece5551].

128
129
130
131
132
133
134
135
136
137
138
139
140

   type Reference is new Printers.Printer with record
      Exp : Trees.Reference;
   end record;


   type Cursor is new Descriptor with record
      Exp : Trees.Reference := Trees.Create (Create_Tree'Access);
      Position : Node_Access := null;
      Opening : Boolean := False;
   end record;

end Natools.S_Expressions.Generic_Caches;







|





128
129
130
131
132
133
134
135
136
137
138
139
140

   type Reference is new Printers.Printer with record
      Exp : Trees.Reference;
   end record;


   type Cursor is new Descriptor with record
      Exp : Trees.Reference := Trees.Null_Reference;
      Position : Node_Access := null;
      Opening : Boolean := False;
   end record;

end Natools.S_Expressions.Generic_Caches;