Differences From Artifact [f49ff898a8]:
- File src/natools-s_expressions-encodings.adb — part of check-in [1360e35d38] at 2013-12-30 19:59:23 on branch trunk — s_expressions-encodings: new package for hexadecimal and base-64 encoding and decoding in S-expressions (user: nat, size: 11011) [annotate] [blame] [check-ins using]
To Artifact [55ec865df9]:
- File src/natools-s_expressions-encodings.adb — part of check-in [5d808b591d] at 2014-01-04 13:00:50 on branch trunk — s_expressions-encodings: fix decoding of lone last half-byte (user: nat, size: 11017) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
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;
|
| ︙ | ︙ |