mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
12 lines
251 B
Ada
12 lines
251 B
Ada
-- { dg-do compile }
|
|
-- { dg-options "-gnatVi -gnatws" }
|
|
|
|
with Validity_Check2_Pkg; use Validity_Check2_Pkg;
|
|
|
|
procedure Validity_Check2 (R : access Rec) is
|
|
begin
|
|
if Op_Code_To_Msg (R.Code) in Valid_Msg then
|
|
raise Program_Error;
|
|
end if;
|
|
end;
|