Differences From Artifact [5e6685c7ea]:

• File src/natools-s_expressions-generic_caches.adb — part of check-in [a23e614377] at 2014-02-09 20:52:36 on branch trunk — s_expressions-generic_caches: new package for simnple memory container of S-expression (user: nat size: 10123)

To Artifact [4410166561]:

• File src/natools-s_expressions-generic_caches.adb — part of check-in [50ec4ef40a] at 2014-02-16 17:59:17 on branch trunk — s_expressions-generic_caches: fix duplication of child lists (user: nat size: 10165)

112
113
114
115
116
117
118
119

120
121
122
123
124
125
126

                 Parent => Parent,
                 Next => null,
                 Data => new Atom'(N.Data.all));
            when List_Node =>
               Result := new Node'(Kind => List_Node,
                 Parent => Parent,
                 Next => null,
                 Child => Dup_List (N.Child, N));

         end case;

         if N = Source.Last then
            New_Last := Result;
         end if;

         return Result;

|
>

112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127

                 Parent => Parent,
                 Next => null,
                 Data => new Atom'(N.Data.all));
            when List_Node =>
               Result := new Node'(Kind => List_Node,
                 Parent => Parent,
                 Next => null,
                 Child => null);
               Result.Child := Dup_List (N.Child, Result);
         end case;

         if N = Source.Last then
            New_Last := Result;
         end if;

         return Result;