Problem with generic package

[Laurent <daemon2@internet.lu>]

Hi

As an exercise I have created a generic search function. Because my library folder begins to get messy I tried to put some related parts together in a package.

https://github.com/Chutulu/Library.git

The generic swap and sort are working as standalone but in my package I get this error:

expect generic subprogram in instantiation

No idea what the compiler tries to explain.

Thanks

Laurent


package body Array_Generics is

   procedure Swap_Generic (Value1, Value2 : in out Element_Type) is

      Temp_Value : Element_Type;

   begin -- Swap_Generic

      Temp_Value := Value1;
      Value1 := Value2;
      Value2 := Temp_Value;

   end Swap_Generic;

   procedure Sort_Generic (List : in out List_Type) is

      -- We need to make an instance of Swap_Generic for this case

      error ==>procedure Exchange is new Swap_Generic (Value_Type => Element_Type); <== error

      Index_Of_Min : Index_Type;

      .
      .
      .