blob: 4bfdd0a8eff5d861d7ab7cb5d6ec6ffebc73d5b1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
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;
|
