Overview
| Comment: | s_expressions-generic_caches: fix duplication of child lists |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
50ec4ef40acea35bb42da471a9f438a3 |
| User & Date: | nat on 2014-02-16 17:59:17 |
| Other Links: | manifest | tags |
Context
|
2014-02-17
| ||
| 19:43 | s_expressions-test_tools: new helper procedure to test all atom accessors at once check-in: 962add2a19 user: nat tags: trunk | |
|
2014-02-16
| ||
| 17:59 | s_expressions-generic_caches: fix duplication of child lists check-in: 50ec4ef40a user: nat tags: trunk | |
|
2014-02-15
| ||
| 15:20 | s_expressions-cache_tests: add deep- and shallow-copy to existing tests check-in: 5b437645d5 user: nat tags: trunk | |
Changes
Modified src/natools-s_expressions-generic_caches.adb from [5e6685c7ea] to [4410166561].
| ︙ | ︙ | |||
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;
|
| ︙ | ︙ |