Natools

Check-in [5d808b591d]
Login
Overview
Comment:s_expressions-encodings: fix decoding of lone last half-byte
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 5d808b591dffb5d6dcc22015d0e6a81a5a84c785
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
82

83
84
85
86
87
88
89
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);
               Result (O) := Decode_Hex (High, Digit_0);
               O := O + 1;
            end if;
            pragma Assert (O - 1 = Result'Last);
         end;
      end return;
   end Decode_Hex;