1package body Opt25_Pkg1 is 2 3 procedure Swap (A, B : in out T) is 4 Tmp : T := A; 5 begin 6 A := B; 7 B := Tmp; 8 end Swap; 9 10end Opt25_Pkg1; 11