Natools

Check-in [5d808b591d]
Login

Check-in [5d808b591d]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

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 2014-01-04 13:00:50.720
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
Unified Diff Ignore Whitespace Patch
Changes to src/natools-s_expressions-encodings.adb.
︙︙
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;
︙︙