blob: fbb09b91f3c80f2cbd743268ca8496536f4adf31 [file] [log] [blame]
with Elab8_Pkg;
package body Elab8_Gen is
procedure Compare (Arg1, Arg2 : T) is
begin
if Arg1 = Arg2 then
raise Program_Error;
end if;
end;
end Elab8_Gen;