From 757ef193ca81160d284554c426ce4b0cb09bdf84 Mon Sep 17 00:00:00 2001 From: hyung-hwan Date: Tue, 24 Aug 2021 07:42:18 +0000 Subject: [PATCH] removed unneeded text --- lib2/h3-strings.adb | 10 +++++----- lib2/h3.ads | 1 - 2 files changed, 5 insertions(+), 6 deletions(-) diff --git a/lib2/h3-strings.adb b/lib2/h3-strings.adb index 6c91334..97164c3 100644 --- a/lib2/h3-strings.adb +++ b/lib2/h3-strings.adb @@ -1,8 +1,5 @@ with Ada.Unchecked_Deallocation; -with system.address_image; -with ada.text_io; - package body H3.Strings is BUFFER_ALIGN: constant := 16; @@ -17,7 +14,7 @@ package body H3.Strings is return Str.Buffer.Slot'Length - 1; end Get_Capacity; - -- return the buffer capacity including the terminator + -- private. return the buffer capacity including the terminator function Get_Hard_Capacity (Str: in Elastic_String) return System_Size is begin return Str.Buffer.Slot'Length; @@ -102,6 +99,7 @@ package body H3.Strings is return Tmp; end New_Buffer_Container; + -- prepare the buffer for writing procedure Prepare_Buffer (Str: in out Elastic_String) is Tmp: Elastic_String; begin @@ -187,7 +185,7 @@ package body H3.Strings is Append (Str, Tmp); end Append; - procedure Delete (Str: in out Elastic_String; Pos: in System_Index; Length: in System_Length) is + procedure Delete (Str: in out Elastic_String; Pos: in System_Index; Length: in System_Size) is begin null; end Delete; @@ -197,6 +195,8 @@ package body H3.Strings is -- --------------------------------------------------------------------- procedure Initialize (Str: in out Elastic_String) is begin + -- the string is initialized to the empty buffer all the time. + -- there is no need to reference the buffer. null; end Initialize; diff --git a/lib2/h3.ads b/lib2/h3.ads index 7b9814a..103b154 100644 --- a/lib2/h3.ads +++ b/lib2/h3.ads @@ -21,7 +21,6 @@ package H3 is --type System_Size is new System_Word range 0 .. (2 ** System_Word_Bits) - 1; subtype System_Size is System_Word range 0 .. (2 ** System_Word_Bits) - 1; - subtype System_Length is System_Size; --subtype System_Index is System_Size range 0 .. (System_Size'Last - 1); subtype System_Index is System_Size range 1 .. System_Size'Last;