Differences From Artifact [a7ad3f6741]:
- File natools-chunked_strings.adb — part of check-in [99dd3c799b] at 2011-11-29 14:39:57 on branch trunk — natools-chunked_strings: new package for efficient storage and append on large strings (user: nat, size: 71953) [annotate] [blame] [check-ins using]
- File src/natools-chunked_strings.adb — part of check-in [fb1e9e5c96] at 2011-12-09 22:56:32 on branch trunk — Separation of library source and test code into distinct directories (user: nat, size: 71953) [annotate] [blame] [check-ins using]
To Artifact [56171a6910]:
- File src/natools-chunked_strings.adb — part of check-in [c4b3d85973] at 2013-09-11 19:45:37 on branch trunk — chunked_strings: fix size after Hard_Reset (user: nat, size: 71974) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
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
|
| ︙ | ︙ |