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) [annotate] [blame] [check-ins using]
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) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
112 113 114 115 116 117 118 |
Parent => Parent,
Next => null,
Data => new Atom'(N.Data.all));
when List_Node =>
Result := new Node'(Kind => List_Node,
Parent => Parent,
Next => null,
| | > | 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;
|
| ︙ | ︙ |