Natools

Check-in [c4b3d85973]
Login

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

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 2013-09-11 19:45:37
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/natools-chunked_strings.adb.

786
787
788
789
790
791
792

793
794
795
796
797
798
799
                             Data            => Data);
   end Duplicate;



   procedure Hard_Reset (Str : in out Chunked_String) is
   begin

      Free (Str.Data);
   end Hard_Reset;



   procedure Soft_Reset (Str : in out Chunked_String) is
   begin







>







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