Natools

Check-in [c4b3d85973]
Login
Overview
Comment:chunked_strings: fix size after Hard_Reset
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: c4b3d8597329f00ee5215af8750f7e9a4dacf76a
User & Date: nat on 2013-09-11 19:45:37
Other Links: manifest | tags
Context
2013-09-12
18:31
chunked_strings-tests-coverage: new gray-box test section for Chunked_String check-in: b751974453 user: nat tags: trunk
2013-09-11
19:45
chunked_strings: fix size after Hard_Reset check-in: c4b3d85973 user: nat tags: trunk
2013-09-10
17:50
chunked_strings-tests: run String_Accumulator tests on Chunked_String objects check-in: 1ac63b4194 user: nat tags: trunk
Changes

Modified src/natools-chunked_strings.adb from [a7ad3f6741] to [56171a6910].

786
787
788
789
790
791
792

793
794
795
796
797
798
799
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800







+







                             Data            => Data);
   end Duplicate;



   procedure Hard_Reset (Str : in out Chunked_String) is
   begin
      Str.Size := 0;
      Free (Str.Data);
   end Hard_Reset;



   procedure Soft_Reset (Str : in out Chunked_String) is
   begin