blob: 4bfdd0a8eff5d861d7ab7cb5d6ec6ffebc73d5b1 [file] [log] [blame]
with Text_IO; use Text_IO;
package body Opt87_Pkg is
procedure Print (Msg : String; Location : String) is
Final_Msg : constant String :=
Ascii.Cr & "info: " & Msg & " (" & Location & ")" & Ascii.Cr;
begin
Put_Line (Final_Msg);
end;
end Opt87_Pkg;