Overview
| Comment: | chunked_strings: fix size after Hard_Reset |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c4b3d8597329f00ee5215af8750f7e9a |
| 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 |
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
|
| ︙ | ︙ |