Generic swap: Difference between revisions

procedure Generic_Swap (Left : in out Swap_Type;, Right : in out Swap_Type);

procedure Generic_Swap (Left : in out Swap_Type;, Right : in out Swap_Type) is

Temp : constant Swap_Type := Left;

package T_Swap is new Generic_Swap (Swap_Type => T);

A, B : T;

T_Swap (A, B);