1with Elab8_Pkg; 2 3package body Elab8_Gen is 4 5 procedure Compare (Arg1, Arg2 : T) is 6 begin 7 if Arg1 = Arg2 then 8 raise Program_Error; 9 end if; 10 end; 11 12end Elab8_Gen; 13