Differences From Artifact [f7bbd4f802]:

• File src/natools-s_expressions-atom_buffers.adb — part of check-in [a4d12bf348] at 2014-03-31 19:09:58 on branch trunk — s_expressions-atom_buffers: fix exception when appending an empty atom to an empty buffer (user: nat size: 6214)

To Artifact [24525cb69b]:

• File src/natools-s_expressions-atom_buffers.adb — part of check-in [8c650fd927] at 2014-04-12 16:19:43 on branch trunk — natools-references: add support of references to constant (user: nat size: 6340)

139
140
141
142
143
144
145


146




147
148
149
150
151
152
153

139
140
141
142
143
144
145
146
147

148
149
150
151
152
153
154
155
156
157
158

+
+
-
+
+
+
+

      function Create return Atom is
      begin
         return Null_Atom;
      end Create;
   begin
      if Buffer.Ref.Is_Empty then
         declare
            Tmp_Ref : constant Atom_Refs.Reference
         return Atom_Refs.Create (Create'Access).Query;
              := Atom_Refs.Create (Create'Access);
         begin
            return Tmp_Ref.Query;
         end;
      else
         return Buffer.Ref.Query;
      end if;
   end Raw_Query;


   procedure Query