Index: src/natools-smaz_implementations-base_64_tools.adb
==================================================================
--- src/natools-smaz_implementations-base_64_tools.adb
+++ src/natools-smaz_implementations-base_64_tools.adb
@@ -249,21 +249,6 @@
       Digit := Value (Input (Offset));
       Finished := False;
       Offset := Offset + 1;
    end Next_Digit_Or_End;
 
-
-   function Symbol_Count (Input : Ada.Streams.Stream_Element_Array)
-     return Ada.Streams.Stream_Element_Count
-   is
-      Result : Ada.Streams.Stream_Element_Count := 0;
-   begin
-      for S of Input loop
-         if S in Base_64_Symbol then
-            Result := Result + 1;
-         end if;
-      end loop;
-
-      return Result;
-   end Symbol_Count;
-
 end Natools.Smaz_Implementations.Base_64_Tools;

Index: src/natools-smaz_implementations-base_64_tools.ads
==================================================================
--- src/natools-smaz_implementations-base_64_tools.ads
+++ src/natools-smaz_implementations-base_64_tools.ads
@@ -86,14 +86,10 @@
    function Value_Length (Input_Length : in Ada.Streams.Stream_Element_Count)
      return Natural
      is (Natural (Input_Length) - (Natural (Input_Length) + 3) / 4);
       --  Original length of an encoded array
 
-   function Symbol_Count (Input : Ada.Streams.Stream_Element_Array)
-     return Ada.Streams.Stream_Element_Count;
-      --  Return the number of valid symbols in Input
-
 
    procedure Encode
      (Input : in String;
       Output : in out Ada.Streams.Stream_Element_Array;
       Offset : in out Ada.Streams.Stream_Element_Offset);