blob: c18694f7b5a86352fe168cb0b7cb9debb55f54a0 [file] [log] [blame]
package body Opt25_Pkg1 is
procedure Swap (A, B : in out T) is
Tmp : T := A;
begin
A := B;
B := Tmp;
end Swap;
end Opt25_Pkg1;