Overview
| Comment: | smaz_generic-tools: fix removal of the first item of a dictionary |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
dd10a5bea1d31c3a93f46c30b8da8a76 |
| User & Date: | nat on 2016-12-30 22:11:31 |
| Other Links: | manifest | tags |
Context
|
2016-12-31
| ||
| 16:57 | smaz_tests: add a check to show a bug in long verbatim size computation check-in: 4f0ae7072f user: nat tags: trunk | |
|
2016-12-30
| ||
| 22:11 | smaz_generic-tools: fix removal of the first item of a dictionary check-in: dd10a5bea1 user: nat tags: trunk | |
|
2016-12-29
| ||
| 21:47 | smaz_implementations-base_64: fix index update in encoding 3n+2 vrbtim check-in: ebba07e9a7 user: nat tags: trunk | |
Changes
Modified src/natools-smaz_generic-tools.adb from [7f4318cc92] to [bd000f80e7].
| ︙ | ︙ | |||
286 287 288 289 290 291 292 |
end loop;
return Result;
end New_Offsets;
function New_Values return String is
begin
| > > > > | | 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 |
end loop;
return Result;
end New_Offsets;
function New_Values return String is
begin
if Index = Dictionary_Code'First then
return Dict.Values
(Dict.Offsets (Dictionary_Code'Succ (Index))
.. Dict.Values'Last);
elsif Index < Dict.Last_Code then
return Dict.Values (1 .. Dict.Offsets (Index) - 1)
& Dict.Values (Dict.Offsets (Dictionary_Code'Succ (Index))
.. Dict.Values'Last);
else
return Dict.Values (1 .. Dict.Offsets (Index) - 1);
end if;
end New_Values;
|
| ︙ | ︙ |