Overview
| Comment: | s_expressions-encodings: fix decoding of lone last half-byte |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
5d808b591dffb5d6dcc22015d0e6a81a |
| User & Date: | nat on 2014-01-04 13:00:50 |
| Other Links: | manifest | tags |
Context
|
2014-01-05
| ||
| 15:13 | s_expressions-atom_buffers: new package for unbounded buffers as S-expression atoms check-in: f6c9de3912 user: nat tags: trunk | |
|
2014-01-04
| ||
| 13:00 | s_expressions-encodings: fix decoding of lone last half-byte check-in: 5d808b591d user: nat tags: trunk | |
|
2014-01-03
| ||
| 21:26 | s_expressions-encodings-tests: add more tests to reach complete coverage check-in: b8a246ea77 user: nat tags: trunk | |
Changes
Modified src/natools-s_expressions-encodings.adb from [f49ff898a8] to [55ec865df9].
| ︙ | ︙ | |||
75 76 77 78 79 80 81 |
else
High := Data (I);
Has_High := True;
end if;
end if;
end loop;
if Has_High then
| | | 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 |
else
High := Data (I);
Has_High := True;
end if;
end if;
end loop;
if Has_High then
Result (O) := Decode_Hex (High, Digit_0);
O := O + 1;
end if;
pragma Assert (O - 1 = Result'Last);
end;
end return;
end Decode_Hex;
|
| ︙ | ︙ |