Generic swap: Difference between revisions

Content deleted Content added
Line 82: Line 82:
...
...
type T is ...
type T is ...
package T_Swap is new Generic_Swap (Swap_Type => T);
procedure T_Swap is new Generic_Swap (Swap_Type => T);
A, B : T;
A, B : T;
...
...