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)

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)

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, 0);
               O := O + 1;
            end if;
            pragma Assert (O - 1 = Result'Last);
         end;
      end return;
   end Decode_Hex;

|

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;