Natools

Check-in [eade42f305]
Login

Check-in [eade42f305]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

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 2014-02-25 19:45:37.323
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
Side-by-Side Diff Ignore Whitespace Patch
Changes to src/natools-s_expressions-generic_caches.ads.
︙
128
129
130
131
132
133
134
135

136
137
138
139
140

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);
      Exp : Trees.Reference := Trees.Null_Reference;
      Position : Node_Access := null;
      Opening : Boolean := False;
   end record;

end Natools.S_Expressions.Generic_Caches;